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1DENTIF I CATION 


PRODUCT CODE: AC-9195D-m0 
PRODUCT NAME: CZRIDDO RPOS/5/6 MLT-DR LGC 
DATE CREATED: MAY, 1979 


MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
DIGITAL EQ]UPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT 1S NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
COMPANIES. 


COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 
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REVISION HISTORY 


eeererertetererertererterreereteeeeereereterereeneeteteteneeteeteeeteeetetetene 


1. CHANGE TITLE FROM CZRJDCOTO CZRIDDO 

2.MODIFY STARTING ADDRESSES TO SAFEGUARD DRIVES IN MULTI- 
PROCESSOR ENVIRONMENT. SEE PARAGRAPH 2.4 BELOW. 
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THE RPOG/5/6 MULTIDRIVE EXERCISER PROGRAM IS DESIGNED TO PERFORM 

AN INTERACTIVE TEST ON RPO4/5/6 DISK DRIVES CONNECTED TO A MASSBUS 
SUBSYSTEM. THE SUBSYSTEM MAY BE COMPOSED OF INTERMIXED RPO4, RPOS 
OR RPO6 DISK DRIVES CONTROLLED BY EITHER AN RH11 OR AN RH70. IN 
ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES ON THE 
SUBSYSTEM, THE PROGRAM IS INTENDED TO BE USED TO VERIFY THAT THE 
DRIVES UNDER TEST ARE PERFORMING TO THEIR DATA ERROR RATE AND SEEK 
ERROR RATE SPECIFICATIONS. 


THE RPO4/5/6 MULTIDRIVE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 

BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 

THE PROGRAM WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND NON DUAL 

PORT DRIVES. PROGRAMMABLE OPERATION IS INHIBITED WITH STARTING 

ADDRESS 200-SEE SEC 2.4. THEREFORE, USE STARTING ADDRESS 

204 OR 220 FOR DUAL PORT TESTING. 


TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE DRIVES ARE OVERLAPPED 
(OTHER DRIVES ARE PERFORMING SEEK/SEARCH OPERATIONS WHILE ONE 

DRIVE IS PERFORMING A DATA TRANSFER OR WRITE CHECK OPERATION). 
OPERATIONS AMONG THEeDRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA 
TRANSFER RATE OR A-HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF A 
DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE 1S AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY OVERRIDE 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 


ALL DATA TRANSFER COMMANDS ARE USED (1.E., WRITE DATA, WRITE HEADER 

& DATA, READ DATA, AND READ HEADER & DATA) AS WELL AS WRITE CHECK 
DATA AND WRITE CHECK HEADER & DATA COMMANDS. RECALIBRATE AND 
READ-IN PRESET COMMANDS ARE USED AT STARTUP AND CRIVE INITIALIZATION. 
RECALIBRATE, OFFSET, AND RETURN-TO-CENTERLINE COMMANDS ARE USED 
DURING ERROR PROCESSING. 


THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 

A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED, 
THE DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 

COMMAND. 


PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD; DYNAMIC 
PROGRAM OPTIONS ARE SELECTED BY SWITCH REGISTER SETTINGS. ERRORS 
ARE REPORTED ON THE TELETYPE. 


ALL COMMANDS, DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED 


RANDOMLY BY THE PROGRAM. ADDITIONALLY THE ADDRESSES (EG. CYLINDER, 
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDUMLY. 


REQUIREMENTS 
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EQUIPMENT 
REQUIRED 


PDP-11 PROCESSOR 

16K MEMORY (20K IF THE PROGRAM IS INCLUDED IN AN "XXDP* CHAIN 
TELETYPE 

PROGRAM LOADING DEVICE 

KWll-L OR KwW1l-P CLOCK 

RH11 OR RH70 WITH 1 RPOG, RPOS, OR RPOG DISK CRIVE 


OPTIONAL 


ADDITIONAL MEMORY TO A MAXIMUM OF 28K 
1 TO 7 ADDITIONAL RPO4/5/6'S ON THE SAME RH11 OR RH70 


MEDIA 


THE RPO04/5/6 MULTIDRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS 
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED BY THE EXERCISER. 

DISK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE RPO4/5/6 FORMATTER 
PROGRAM (MAINDEC-11-DZRJB) OR BY THE ‘W* COMMAND OF THE RPO4/5/6 MULTIDRIVE 
EXERCISER (SEE SECTION 4.4). THE PACKS MUST BE FORMATTED IN 22 

SECTOR (16 BIT) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE 1S 

NOT SUPPORTED. 


PRELIMINARY PROGRAMS 


RP04/5/6 DISKLESS CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC-11-DZRJH) 


RP04/5/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJ1) 
PART 2 (MAINDEC-11-DZRJJ) 


RP04/5/6 eae CONTROLLER LOGIC TEST (FOR DUAL PORT DRIVE TESTING) 
PART 1 (MAINDEC=1!-DZRJG) 
PART 2 (MAINDEC-11-DZRJF) 


PROGRAMMABLE DRIVES ‘DUAL PORT ENABLED) 


THIS REV INCORPORATES A SAFEGUARD TO PREVENT INADVERTENT 

CORRUPTION OF DISK PACKS IN PROGRAMMABLE DRIVES. 

THIS 1S A POTENTIAL HAZARD IN RUNNING THIS PROGRAM IN A 

MULTIPROCESSOR SYSTEM. FOR THE STANDARD STARTING ADDRESS OF 200 

THE PROGRAM HAS BEEN MODIFIED TO PREVENT INITIALIZING DRIVES 

FOUND TO BE PROGRAMMABLE. THIS MODIFICATION APPLIES 

ONLY TO THE FIELD ENVIRONMENT (XXDP CHAIN, STANDALONE) 

WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46. FOR THE 

MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PROGRAMMAB( E 
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DRIVES WILL NOT BE INHIBITED. IF THE OPERATOR DESIRES TO RUN THIS PROGRAM USING 
PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, @HERE 220 IS 
THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES. 

SEE SECTION 3.2,3.3 FOR A SUMMARY OF ALL STARTING ADDRESSES. 


OPERATING THE PROGRAR 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
11 MAY BE LOADED FROM THE APPROPRIATE ‘XXDP' MEDIA USING THE ASSOCIATED 
LOADER. THE PROGRAM MAY BE INCLUDED IN AN ‘XXDP* CHAIN, IF THE 
PROGRAM 1S BEING RUN ON A PROCESSOR WITH 16K, THE "XXDP* LOADER WILL 
NOT BE PRESERVED. THE PROGRAM MUST BE RUN ON A SYSTEM WITH 20K OR 

MORE TO PRESERVE THE ‘XXDP* LOADER. THE "ABSOLUTE’ LOADER WILL BE 
PRESERVED IN A 16K SYSTEM, HOWEVER. 


THE PROGRAM STARTS AT LOCATION 200(8). PARAMETERS NOT INCLUDED IN 
THE TELETYPE DIAGLOGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM 

1S STARTED. PROGRAMMABLE DRIVES ARE INHIBITED STANDALONE AND 

XKDP CHAIN@-SEE SEC 2.4. 


START THE PROGRAM AT LOCATION 204(8) IF THE RH11 OR THE RH70 IS 
NOT AT ADDRESS 176700. (NO INHIBITIONS) 


STARTING THE PROGRAM AT 220 IS THE SAME AS 200 BUT PROGRAMMABLE 
DRIVES ARE NOT INHIBITED. 


ONCE THE PROGRAM 1S LOADED AND STARTED, OPERATIONS ARE INITIATED AND 
CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS. 


If THIS 1S THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON 
THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. ON SUBSEQUENT 
STARTS, THIS TYPEOUT MAY BE INHIBITED BY SETTING Sw<02>. 


PASS/TEST TERMINATION 


A PASS IS DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE 
NUMBER OF BITS OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER 

THE SOFT ERROR RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 
THE SPECIFICATIONS FOR RPO4'S, RPOS'S, AND RPO6'S SPECIFY NO MORE 

THAN 1 SOFT ERROR (NON-PACK RELATED) IN 1 X 10*°9 BITS READ OR NO 

MORE THAN 1 SEEK ERROR IN 1 X 10*6 SEEKS. THE NUMBER OF BITS OR 

SEEKS DETERMINING A PASS WERE SELECTED TO PROVIDE A 90% CONFIDENCE 
LEVEL THAT THE DRIVE IS PERFORMING TO THE APPLICABLE SPECIFICATION. 


PASS TERMINATION 


END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS. 
THE END OF PASS CONDITION USED 1S DETERMINED BY PARAMETER ‘ENDET*. 


A. IF PARAMETER ‘ENDET' IS 1, END OF PASS ee WHEN THE DRIVE 


HAS READ 1.875 x 10°8 WORDS (3 x 109 B 
a if PARAMETER "ENDET’ 1S 0, END OF Ry arcubs WHEN THE DRIVE 
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HAS PERFORMED 3 x 10°6 SEEKS. 
TEST TERMINATION 
THE TEST FOR A DRIVE IS TERMINATED (SwW<04> = 0) WHEN: 
A. THE DRIVE HAS — THE NUMBER OF PASSES SPECIFIED IN 

PARAMETER "PASCN 
B. ig TOTAL ERRORS. ACCUMULATED EXCEED 100. 
C. A FATAL ERROR OCCURS: EM12 OR EMI4. 
RUN TIME 
THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. THE MODE IS 
DETERMINED BY THE VALUE IN PARAMETER ‘MAXDL’. IF ‘MAXDL® IS ONE 
SECTOR, THE PROGRAM RUNS IN A SEEK HEAVY MODE; IF ‘MAXDL' APPROACHES 
ONE TRACK IN SIZE (5720 DECIMAL) THE PROGRAM RUNS IN A DATA TRANSFER 
HEAVY MODE. THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON 
THE OPERATION MODE SELECTED, THE MEMORY AVAILABLE OVER 16K, THE 
READ/WRITE RATIO PARAMETER = ‘RATIO’, AND BY SWITCHES 0, 1, ®@ 2. 
DATA TRANSFER MODE 
1 DRIVE = APPROXIMATELY 2.5 HRS (10 PEACH 1.875 K 10*8 WORDS) 

10 

8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 x 10*8 WORDS) 


NOTE: IF Sw<O01> = 1 (NO SOFTWARE DATA COMPARSIONS), THE RUN TIMES 
ARE THE FOLLOWING VALUES, APPROXIMATELY: 


1 DRIVE = 1.7 HRS (1.875 K 10*8 WORDS READ) 
ADD 1/2 HOUR FOR EACH ADDITIONAL DRIVE TESTED. 


It THE PROGRAM 1S RUN WITH BOTH SwW<00> AND SwW<01> 
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 


NOTE: ON THE FIRST PASS (QUICK VERIFY) THE TIMES ARE 
APPROXIMATELY ONE EIGHTH OF THE ABOVE VALUES. 


SEEK VERIFICATION MODE 
PARAMETER "MAXDL" = 1 SECTOR (256 WORDS) 
PARAMETER "MAXTRK' = "MINTRK' 
PARAMETER “MAXSEC’ = ‘MINSEC' 
SwW<00> = 1 (READ ONLY MODE) 
1 DRIVE = APPROXIMATELY 25 HRS (3 KX 10*°6 SEEKS) 
TO 
8B DRIVES - APPROXIMATELY 40 HRS (3 KX 10% SEEKS FOR ALL DRIVES) 
UNIBUS & VECTOR ADDRESSES 


THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. (REFER 
TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES.) 


UNIBUS VECTOR 
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UNIT ADDRESS ADDRESS 


RH11 OR RH70 176700 254 


KwileL 177546 100 
Kwill-P 172542 104 


DUAL PORT OPERATION 


LOAD THE RPO4/5/6 MULTIDRIVE EXERCISER PROGRAM INTO BOTH 
PROCESSORS. 

SWITCH THE ‘CONTROLLER SELECT* SWITCH TO °A/B* ON EACH ORIVE 
— 1S TO BE TESTED AS A DUAL PORT DRIVE; CYCLE THE DRIVES 


U . 
START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THROUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 


PROGRAMMABLE (DUAL PORT) OPERATION IS INHIBITED WITH STARTING ADDRESS 200-SEE SEC 2.4. 
THEREFORE, USE STARTING ADDRESS 204 CR 220 FOR DUAL PORT TESTING. 


CONTROLLING THE PROGRAM 


THE FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM: 


A. 


] 
| 
| 

TTY PRINTER 177564 NOT USED 

TTY KEYBOARD 177560 60 

TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 

*RUBOUT’ ('RO'). TYPING A "RO" WILL DELETE SUCESSIVE CHARACTERS 

FROM THE INPUT. 


TO DELETE AN ENTIRE LINE, TYPE A ‘CONTROL U* (**U"). 


A ‘PERIOD’. THE ‘PERIOD’ TERMINATION IS RECOGNIZED BY THE 
PROGRAM AS A DEFAULT ENTRY REQUEST. WHEN A LINE IS TERMINATED 

BY A ‘PERIOD’ INSTEAD OF A ‘CARRIAGE RETURN’, THE PROGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 


If A ‘CONTROL C* IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM 
WILL RETURN TO THE BEGINNING OF THE GROUP BEING ENTERED. 


DATE & OPERATOR IDENTIFICATION 


WHEN THE PROGRAM IS INITIALLY STARTED, 11 WILL ASK FOR DATE AND 
OPERATOR 1.D. ENTRIES. (THE REQUEST FOR THESE ENTRIES OCCURS 


AN ENTRY MUST BE TERMINATED BY EITHER A ‘CARRIAGE RETURN® OR 
| 
| 
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ONLY WHEN THE PROGRAM IS FIRST STARTED AND WILL NOT APPEAR WHEN 

THE PROGRAM 1S RESTARTED.) THESE ENTRIES ARE OPTIONAL AND MAY 

BE BYPASSED BY ENTERING A ‘CARRIAGE RETURN’ IN RESPONSE TO THE 
REQUEST. THE PROGRAM DOES NOT EDIT OR CHECK EITHER ENTRY. UP TO 

8 CHARACTERS OF DATE INFORMATION AND UP TO 6 CHARACTERS OF OPERATOR 
IDENTIFICATION MAY BE ENTERED. BOTH THE DATE AND THE OPERATOR 1.D. 
WILL BE TYPED WHEN THE "SA* COMMAND IS PERFORMED (SEE SECTION 4.4.3). 


PARAMETERS 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILit BE 
ASKED TO ENTER PARAMETERS. THE FOLLOWING MESSAGE WILt BE DISPLAYED. 


ENTER PARAMETERS: 


THE OPERATOR MUST ENTER A ‘Y" TERMINATED BY A CARRIAGE RETURN <CR> 

If PARAMETER ENTRIES ARE TO BE MADE. ANY OTHER CHARACTER JS ACCEPTED 
AS A 'NO* ENTRY. THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME 
GIVEN BELOW, DISPLAY THE CURRENT VALUE Of THE PARAMETER AND 

WAIT FOR THE ENTRY. THE PROGRAM WILi TYPE “INVALID ENTRY* IF THE 
ENTRY 1S NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED. 


KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 


NAME BASE VALUE RANGE FUNCTION 
MAXDL 10 (SEE NOTE) CONTROLS THE MAXIMUM BUFFER 
SIZE USED FOR DATA TRANSFERS 
PASCNT 10 1 1 - 999 2 ay OF PASSES TO END OF 
$i. 
INTRVL 10 5 0 - 256 DETERMINES THE INTERVAL (IN 


MINUTES) BETWEEN AUTOMATIC 

PERFORMANCE SUMMARY TYPEOUTS 

ERRORS PRINTED OUT IF Sw<07>=0 
CMPLMT 10 3 0 = 'MAXDL" THE NUMBER OF DATA COMPARSION 
WCSEL 8 000000 0 OR 1 IF PARAMETER = 0, THE DATA 

TRANSFER WORD COUNT IS RANDOMLY 

SELECTED BETWEEN 4 (10) AND 

THE VALUE IN ‘MAXDL’. 

IF PARAMETER = 1, THE DATA 

TRANSFER WORD COUNT WILL 

BE THE VALUE IN ‘MAXDL* 


ENDET 8 000001 0 OR | If PARAMETER = 1, END OF PASS 
a BY THE "WORDS READ* 
UN 


1f PARAMETER = 0, END OF PASS 
1S DETERMINED BY THe NUMBER 
OF SEEKS. 
FORMAT 8 000001 0 OR | 1f PARAMETER = 0; DO NOT . 
PERFORM WRITE HEADER & DATA 
ORDERS; IF PARAMETER > QO, 
PERFORM WRITE HEALER & DATA 
ORDERS 
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RATIO 


AUTOCK 


NOTPRT 


NOTE: 


8 000003 0-7 CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 


ORDERS. 
VALUE R/w RATIO 


NAW AO 


8 000001 0 OR 1 If PARAMETER = 1, THE PROGRAM 
PERFORM WRITE CHECKS AFTER 
EACH WRITE COMMAND. 
1f PARAMETER = 0, THE PROGRAM 
WILL PERFORM WRITE CHECKS 
RANDOMLY. 

8 000001 0 OR | 1f PARAMETER = 1, DO NOT PRINT 
ERROR MESSAGES FOR DATA ERRORS 
OCCURING AT LOCATIONS DEFINED 
BY THE OPERATOR AS BAD PACK 
LOCATION. 
If PARAMETER = 0, PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 
PACK LOCATIONS. 


THE PROGRAM WILL SELECT A MAXIMUM BUFFER SIZE WHICH 


1S DETERMINED BY THE MEMORY AVAILABLE. THE MAXIMUM BUFFER 
SIZE ASSIGNED BY THE PROGRAM 1S 5980 (10) WORDS. THE 
OPERATOR MAY SPECIFIY ANY OTHER MAXIMUM SIZE AS LONG AS THE 
VALUE SPECIFIED 1S AT LEAST 4 WORDS BUT NO LARGER THAN 

THE INITIAL VALUE OF ‘MAXDL* DETERMINED BY THE PROGRAM, 


PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 


TO ALTER THESE LOCATIONS, THE OPERATOR MUST MAKE MANUAL ENTRIES 
BEFORE THE PROGRAM IS STARTED. THE KEYBOARD ENTRY ROUTINE DOES 
NOT PROVIDE ACCESS TO THESE LOCATIONS. 


CONN & 
MOE FNwWOOSC 


—_ ee ee eet et 
Rom —— os os es 


TAG CONTENTS FUNCTION 

$TKS 177560 TTY KEYBOARD STATUS REGISTER 

$TKB 177562 TTY KEYBOARD BUFFER REGISTER 

$TPS 177564 iTY PRINTER STATUS REGISTER 

$1PB 177566 TTY PRINTER BUFFER REGISTER 
$LKCSR 172540 ADDRESS OF KW11-P STATUS REGISTER 
$LKCSB 172542 ADDRESS OF KwWil-P COUNTER BUFFER 
$i. PVEC 104 Kwll-P VECTOR ADDRESS 


$LKS 177546 ADDRESS OF Kwil-L STATUS REGISTER 


aad 
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1204 SLLVEC 100 Kwil-L VECTOR ADDRESS 


1212 HZ 74 74 (60 DECIMAL) IF SYSTEM IS 60 HZ; 
62 (50 DECIMAL) IF SYSTEM IS 50 H2. 


THE RH11-RH70 ADDRESS AND VECTOR MAY.BE CHANGED WHEN THE PROGRAM 
1S STARTED FROM LOCATION 204(8) OR If THE PROGRAM DOES NOT RECEIVE 
A RESPONSE WHEN IT ACCESSES THE DEFAULT RH11-RH70 ADDRESS. 


4.2.5 PARAMETERS FOR THE FIRST OPERATION 


4.3 


THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION (CIN 
ADDITION TO THE MINIMUM’ ADDRESS VALUES). 


INITIAL VALUE : 
LOC TAG VALUE —RANGE nk? a FUNCTION 


1412 BEGPAT 10 1 - 15 THE CODE FOR THE STARTING 


PATTERN. (IF A WRITE ORDER 


OR A WRITE CHECK ORDER IS 
SPECIFIED IN ‘BEGCOD") 


1414 BEGCOD 5 0-5 THE INITIAL COMMAND FOR EACH DRIVE 
EXERCISED. 
0 = WRITE CHECK DATA 
1 = WRITE CHECK HEADER & DATA 
2 = WRITE DATA 
3 = WRITE HEADER & DATA 
4 = READ DATA 
5 = READ HEADER & DATA 
1416 BEGSIZ 404 & = MAXOL THE BUFFER SIZE FOR THE FIRST 


DATA TRANSFER OPERATION. 
SWITCH REGISTER SETTINGS 


Sw <15> = 1 HALT ON ERROR 

Sw <135> = 1 INHIBIT ERROR TYPEOUT 

Sw <10> = 1 RING THE TELETYPE BELL IF ERROR 

Sw <7> = 1 DISPLAY ALL DATA COMPARE ERRORS 

Sw <6> = 1 DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

Sw <5> = 1 PARTIAL REGISTER DISPLAY if ERROR; DO NOT DISPLAY 


ECC CORRECTION RESULTS 
SW <4> = 1 INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 
DRIVES WHEN NORMAL END OF TEST REACHED 


Sw <3> = 1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 


IF "DCK', ‘DTE’, OR ‘WCF’ ERRORS OR AFTER THE 28TH 
RETRY IF UNCORRECTABLE ‘DOCK’ ERROR 
1F DATA COMPARE ERRORS & SW<7> SET, DISPLAY REST 


OF BUFFER 

Sw <2> = 1 INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTUP. 
INHIBIT PERFORMANCE SUMMARY TYPEOUTS. 

Sw <I> = 1 INHIBIT DATA COMPARSION AFTER READ ORDERS 

Sw <0> = 1 READ ONLY MODE 


F THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.£. AN 11/34) 


] 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
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*SOFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE "SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G*. THE PROGRAM WILL 
RECOGNIZE THE “CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM IS 

IN KEYBOARD ENTRY MODE, OR IS AT A HIGHER PRIORITY PROCESSING AN 
RP04/5/6 INTERRUPT. THE ‘SOFTWARES SWITCH VALUES ARE ENTERED 

AS AN OCTAL NUMBER IN RESPONSE TC THE PROMPT FROM THE SWITCH 

FNTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT® AND 
"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
‘UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
gh ry i eee me AND THE PROCEDURES DESCRIBED ABOVE MUST 

LL ld . 


KEYBOARD COMMANDS 


THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES 

FOR TEST ('T* COMMAND), WRITE AND CHECK DATA PACKS (*w" COMMAND), 
PERFORM A SEQUENTIAL READ OF A PACK (°R* COMMAND), REQUEST A DRIVE 
PERFORMANCE SUMMARY ('S* COMMAND), OR DEASSIGN A DRIVE WHICH IS 
BEING TESTED, READING, OR WRITING (°D* COMMAND). 


AFTER THE PROGRAM HAS BEEN INITIALIZED, THE FOLLOWING MESSAGE 
WILL BE TYPED: 


"PROGRAM INITIALIZATION COMPLETE 
‘TYPE A CONTROL C TO ENTER COMMANDS’ 


KEYBOARD ENTRIES WILL NOT BE RECOGNIZED UNTIL THE OPERATOR TYPES 

A ‘CONTROL C*. WHEN THE PROGRAM SEES A ‘CONTROL C* ENTRY, IT WILL 
SUSPEND THE SCHEDULING OF FURTHER DEVICE OPERATIONS AND WAIT UNTIL 
ALL OUTSTANDING ORDERS HAVE TERMINATED. THE PROGRAM WILL ENTER 
COMMAND ENTRY MODE AND TYPE THE FOLLOWING PROMPTING MESSAGE: 


*HH:MM:SS 
‘ENTER COMMANDS : * 


THE PROGRAM WILL THEN ACCEPT ANY OF THE VALID COMMANDS. AT THE 
COMPLETION OF A COMMAND, THE PROGRAM WILL EXIT COMMAND MODE; THE 
OPERATOR MUST TYPE ANOTHER ‘CONTROL C* TO RETURN THE PROGRAM T0 
COMMAND MODE. IF THE COMMAND ENTERED SPECIFIED AN ‘A' 

DRIVE NUMBER, THE PROGRAM WILL REMAIN IN COMMAND MODE UNTIL ALL 
AVAILABLE DRIVES HAVE BEEN PROCESSED. 


THE *T*, ‘Ww’, AND *R* COMMANDS REQUIRE ADDRESS LIMITS, DRIVE 1.0, 
AND BAD LOCATION ADDRESS ENTRIES FOR THE DRIVE BEING REFERENCED, 


THE PROGRAM WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING 


SEQ 0012 


en a ne aes eR: 
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TYPEOUT- 
"ENTER ADDRESS LIMITS FOR DR ON / RPOS" (OR RPOS OR RPOO) 
THE PROGRAM WILi REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 


PARAMETERS. 

DEFAULT VALUE 
NAME BASE VALUE RANGE FUNCTION 
MINCYL 10 (SEE NOTE) THE MINIMUM CYLINDER ADDRESS 
MAXCYL 10 (SEE NOTE) THE MAXIMUM CYLINDER ADDRESS 
MINTRKE 10 0 O- 18 THE MINIMUM TRACK ADDRESS 
MAKTRK 10 18 0- 18 THE MAXIMUM TRACK ADDRESS 
MINSEC 10 0 0 - 21 THE MINIMUM SECTOR ADDRESS 
MAXSEC §=10 2) 0 - 21 THE MAXIMUM SECTOR ADDRESS 


NOTE: 1. THE ADDRESS LIMITS ARE IN DECIMAL 


2. THE MAXIMUM VALUES OF ‘MINCYL® AND "MAKCYL’ WILL BE EITHER 
410 (10) OR 814 (10) DEPENDING ON THE TYPE OF DRIVE. 


! 
3. THE MINIMUM CYLINDER, TRACK, OR SECTOR ADDRESS MAY BE 
SPECIFIED AS BEING LARGER THAN THE MAXIMUM ADDRESS. WHEN 
THESE VALUES ARE INVERTED, THE PROGRAM WILL SELECT 
ADDRESSES BETWEEN THE ‘MIN’ ADDRESS AND THE UPPER ‘ 
PHYSICAL LIMIT FOR THAT ADDRESS AND BETWEEN “O° AND THE 
VALUE IN ‘MAX’. 


EACH COMMAND, EXCEPT THE ‘'S* AND THE °D* COPMANDS, WILt ASK FOR 
A DRIVE IDENTIFICATION ENTRY. THE DRIVE IDENTIFICATION ENTRY 
REQUEST 1S MADE BY THE FOLLOWING MESSAGE: : 


"ENTER 1.D. FOR DRv @N:° 


THE OPERATOR MAY ENTER AN 1.D. NUMBER FOR THE DRIVE OF UP TO 6 
CHARACTERS IN LENGTH. THIS 1.D. WILL BE DISPLAYED, ALONG WITH THE 
DATE AND OPERATOR 1.D. ENTRIES (SEE SECTION 4.1), WHEN THE ‘SA* 
COMMAND IS EXECUTED. THE OPERATOR MAY ENTER ANY CHARACTER STRING, 
TERMINATED BY A “CARRIAGE RETURN’, OR A ‘PERIOD® ONLY (NULL ENTRY) 
IN RESPONSE TO THE 1.D. REQUEST. 


THE PROGRAM WILL THEN ASK FOR THE ADDRESSES OF KNOWN BAD SPOTS ON 
THE DISK PACK USED, UP TO 16 ADDRESSES MAY BE ENTERED: 


"BAD TRK/SEC ADRS FOR DRV #N ?° 
THE OPERATOR MAY DECLARE UP 10 16 BAD LOCATIONS ON THE PACK BEING 
USED. THE LOCATION MAY BE AN ENTIRE CYLINDER, A BAD TRACK, OR A SINGLE 
SECTOR. THE FORMATS USED ARE AS FOLLOW: 
FORMAT 1: C,1,S<CR> 


A. THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES OR WILL 
IDENTIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED ADDRESS, 
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DEPENDING ON THE VALUE OF PARAMETER ‘NOTPRT’. 
B. LEADING ZEROS ARE NOT REQUIRED. 


FORMAT 2: C,1<CR> 
A. WHEN THIS FORMAT IS USED, THE ENTIRE TRACK WILL BE 
CONSIDERED BAD; DATA ERRORS WILL BE HANDLED AS IN 
"FORMAT 1°, ABOVE. 
B. LEADING ZEROS ARE NOT REQUIRED. 
FORMAT 3: C<CR> 
A. WHEN THIS FORMAT IS USED, THE ENTIRE CYLINDER WILL 
BE CONSIDERED BAD; DATA ERRORS WILL BE HANDLED AS IN 
"FORMAT 1° ABOVE. 
B. LEADING ZEROS ARE NOT REQUIRED. 
NOTE: CYLINDER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL. 
THE OPERATOR MAY TERMINATE THE BAD ADDRESS ENTRY BY ENTERING A 
"PERIOD' IN RESPONSE TO THE ENTRY REQUEST OR BY TERMINATING AN ENTRY 
WITH A ‘PERIOD’ INSTEAD OF A ‘CARRIAGE RETURN’. 
"T" COMMAND 
USED TO ASSIGN A DRIVE(S) FOR TEST. THIS COMMAND IS REQUIRED 
PERFORM THE TEST OF THE DRIVE(S). THE OTHER COMMANDS ARE CONVIENCE 
COMMANDS OR SUPPORT COMMANDS. : 
FORMAT: TN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A‘. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: TO<CR> = ASSIGN DRIVE 0 FOR TEST 
TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 


NOTE: DRIVE OPERATION BEGINS IMMEDIATELY 
AFTER COMMAND IS ENTERED. 
"D' COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. * 
FORMAT: DN<CR> 


N = DRIVE NUMBER, MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> - DEASSIGN DRIVE 0 
DA<CR> we ALL DRIVES BEING 
S . 


NOZES: 1. IF THE "D* COMMAND REFERENCES A 
DRIVE NOT ASSIGNED THE PROGRAM 


rc 
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4.4.3 


4.4.4 


WILL TYPEOUT "?DRIVE NOT ASSIGNED’ 


2. THE DRIVES WILL BE DEASSIGNED AS THEIR 
OPERATIONS COMPLETE. 


3. IF ‘DA’ IS USED, ONLY DRIVES BEING 
TESTED WILL BE DEASSIGNED = THE 
ERROR MESSAGE IN (1) ABOVE WILL NOT 
BE DISPLAYED. 


*S* COMMAND 


USED TO REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 


DRIVE(S). 
FORMAT: SN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A‘. ENTRY MUSi BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 
SA<CR> - TYPEOUT PERFORMANCE SUMMARY 
FOR ALL DRIVES BEING TESTED. 


NOTES: 1. IF ‘SA* IS USED ONLY DRIVES BEING TESTED WILL 
BE DISPLAYED. 


2. IF PARAMETER ‘INTRVL' IS NOT ZERO, THE PROGRAM 
WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMARY 


FOR EACH DRIVE BEING TESTED AT A RATE DETERMINED BY 


"INTRVL'. 


3. IF THE *SA' COMMAND IS USED, THE PROGRAM WILL TYPEOUT 
THE OPERATOR ENTERED DATE, OPERATOR 1.D., AND THE DRIVE 
1.D. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR 
1.D. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED. 


"w' COMMAND 


USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPO4/5/6 MULTI- 


DRIVE EXERCISER PROGRAM. 
FORMAT: WN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WA<CR> - WRITE DATA PACKS ON ALL AVAILABLE DRIVES. 
WO<C(R> = GENERATE A DATA PACK ON DRIVE 0. 


NOTES: 1. DATA PACKS GENERATED BY THE RP04/5/6 FORMATTER PROGRAM 
(MD-11-DZRJB) OR BY THE RPO4/5/6 MECHANICAL & READ/WRITE 


PROGRAM (MD-11-DZRJA), TEST 20, ARE ACCEPTABLE. 


WRITTEN BY TESTS 16, 17 OR 21 OF ‘DZRJA* CANNOT BE USED 


AND MUST BE REWRITTEN.) 


SEQ 0015 


on 
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2. THE ‘WwW’ COMMAND SHOULD NOT BE USED UNLESS ‘MAXDL" 
PARAMETER 1S APPROXIMATELY 1 TRACK IN SIZE = 5000 (10). 
IF THE BUFFER SIZE 1S MUCH LESS THAN 1 TRACK, THE 
TIME REQUIRED TO WRITE A DATA PACK IS TOO GREAT TO 
BE PRACTICAL. 


3. THE ‘W' COMMAND PERFORMS A SEQUENTIAL WRITE OF THE 
PACK USING A ‘WRITE DATA’ COMMAND. THE DATA PATTERN 
USED FOR EACH WRITE IS SELECTED RANDOMLY. HOWEVER, 
THE OPERATION OF THE COMMAND IS SEQUENTIAL, BEGINNING 
Sestak "MINTRK' AND CONTINUING TO ‘MAXCYL', 
"MAXTRK', 


4. THE ‘Ww’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES 
THAT THE FORMAT OF THE PACK IS GOOD. 


5. THE ‘w' COMMAND CANNOT BE STARTED IF SWITCH 0 (READ 
ON.Y MODE) 1S SET. IF SWITCH O SET SET DURING THE 
OPERATION OF THE ‘W' COMMAND, THE DRIVE PERFORMING THE 
"w' COMMAND WILL IGNORE THE SWITCH. 
6. THE DATA WRITTEN IS VERIFIED BY A "WRITE CHECK DATA 
COMMAND. 
"R" COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 2 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A'. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: RA<CR> = READ THE PACKS ON ALL OF THE ONLINE DRIVES. 
RO<CR> - READ THE PACK ON DRIVE 0. 


NOTES: 1. THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA 
READ. HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL. 


2. THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS 
SPECIFIED BY ‘MINCYL', "MINTRK' TO THE ADDRESS SPECIFIED 
BY 'MAXCYL', "MAXTRK'. THE READ WILL BE SEQUENTIAL. 
GENERAL COMMAND INFORMATION 
A. WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME 


B. IF THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE 
"INVALID COMMAND’. 


£, DRIVES ASSIGNED (WITH THE ‘T* COMMAND) OR DEASSIGNED (WITH THE 
"D" COMMAND) MAY BE ENTERED IN ANY SEQUENCE. 


SEQ 0016 


aon 
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D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 
RESPONSE COMMAND (S) 


2UNiT N OFFLINE T, W 
2UNIT N NOT ASSIGNED dD. S 
2UNIT N ALREADY ASSIGNED T, W 
2UNIT N NOT PRESENT T, W 
2UNIT N UNSAFE T, WwW 
2UNIT N NOT AN RPO4/5/6 T, WwW 


THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
If THE PARAMETER ‘INTRVL* IS NOT ZERO OR CAN BE DISPLAYED ON 
REQUEST BY THE OPERATOR THROUGH THE USE OF THE ‘S* COMMAND. 
THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 


*DRV' THE DRIVE NUMBER 

"PASS" THE PRESENT PASS COUNT FOR THE DRIVE 

*ORDERS' THE NUMBER OF ORDERS PERFORMED BY THE DRIVE 
*SEEKS* THE NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 
"WRDS XFER‘ THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE 
"WRDS READ’ THE TOTAL NUMBER OF WORDS READ BY THE DRIVE 
*SOFT' THE NUMBER OF SOFT DATA ERRORS 

"HARD* THE NUMBER OF HARD DATA ERRORS 

"SKI" THE NUMBER OF ‘SKI* OR ‘OCYL" ERRORS 

"MISP* THE NUMBER OF POSITIONING ERRORS 

*OTHER' THE TOTAL ERRORS OF OTHER TYPES 


NOTE: ERRORS EM1, EM2, EM3, EM4, EMS, & EM10 ARE NOT INCLUDED IN 
THE ‘OTHER’ ERROR TOTAL. 


SOFT/HARD ERROR DEFINITIONS 
HARD ERRORS 


A. A "DTE* (DRIVE TIMING ERROR) OR A ‘DCK* (DATA CHECK ERROR) 
WHICH OCCURS DURING A READ DATA OR A READ HEADER & DATA OPERATION 
AND 1S NOT CORRECTED OR BECOMES CORRECTABLE AFTER THE PROGRAM 
HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD SECTOR. 
THE RETRY SEQUENCE 1S 16 RE=READS AT TRACK CENTER AND 2 ATTEMPTS 
AT EACH OF THE FOLLOWING OFFSETS: 


RPO04/5 RP06 
+400 MICRO-INCHES +200 MICRO-INCHES 
“400 MICRO-INCHES -200 MICRO-INCHES 
+800 M1 CRO-INCHES +400 MICRO-INCHES 
-800 MICRO-INCHES “400 MICRO-INCHES 


SEQ 0017 
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08:32 SEQ 0018 
+1200 MICRO-INCHES +800 MICRO-INCHES 
-1200 MICRO-INCHES -800 MICRO-INCHES 

SOFT ERRORS 


A. ECC CORRECTABLE ‘DCK' ERRORS. 

B. ‘DCK' & "ECH’ ERRORS WHICH BECOPE ECC CORRECTABLE DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RETRY. 

(. HEADER READ ERRORS - READ DATA, READ HEADER & DATA, OR 
WRITE DATA ORDERS. 

D. ‘DTE* ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
*DCK* ERROR DURING THE RETRY SECUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH 'RDDAT' (READ DATA) OR ‘RDHD' 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


B. THE OPERATION TERMINATED WITH ‘DOCK’ SET AND THE ERROR 
1S ECC CORRECTABLE OR THE SECTOR IN ERROR IS READ 
CORRECTLY AFTER RETRY ATTEMPTS. 


VERIFICATION OF DATA WRITTEN 


AFTER EACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED WITH THE 
APPROPRIATE WRITE CHECK COMMAND - If PARAMETER ‘AUTOCK’ IS 1. 
(IF ‘AUTOCK' IS 0, WRITE CHECKS WILi BE PERFORMED RANDOMLY.) 


SECTOR REFORMATTING 


THE PROGRAM WILL REFORMAT AN UNCORRECTABLE ERROR SECTOR IN THE 
FOLLOWING CASES (PARAMETER ‘FORMAT’ MUST BE SET AND SW<00> = 0). 
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED. 


DATA CHECK ERRORS - EM21 

. HEADER READ ERRORS - EM20, EM24, EM25, EM26, EM? 
DRIVE TIMING ERRORS - EM31 

OPERATION INCOMPLETE ERRORS - EM32 

WRITE CHECK ERRORS - EM22, EM25 


BAD TRACK/SECTOR FLAGGING 


SINCE THE RPO4 SUBSYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRACK 

HANDLING CAPABILTIY, THE MULTIDRIVE EXERCISER ALLOWS THE OPERATOR 
TO IDENTIFY UP TO 8 BAD TRACK/SECTOR LOCATIONS WHEN THE DRIVE IS 
ASSIGNED FOR TEST. (SEE SECTION 4.1 FOR ADDITIONAL INFORMATION.) 


IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED By 
THE OPERATOR, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT 


mMoow,YT 
a . 


ann 
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ERROR. 





















DATA CHECK ERRORS (‘CCK') 

WRITE CHECK ERRORS (‘WCE') 

OPERATION INCOMPLETE ERRORS (‘OPI'? 

DRIVE TIMING ERRORS (‘DIE") 

HEADER READ ERRORS (‘FER' & ‘HCRC', “HCE® & “HCRC', "HCRC") 


OPTIONALLY, THE OPERATOR MAY REQUEST AN ERROR REPORT FOR FLAGGED 
AREAS. (PARAMETER 'NOTPRT' MUST BE SET TO 0 AT STARTUP.) THE 
PROGRAM WILL IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE PACK; THESE 
tons Ages NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE 


ERROR MESSAGES 


DRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (IF AVAILABLE? A 

LINE PRINTER. ALL ERROR CONDITIONS ARE REPORTED IN ERROR MESSAGES; 
THE PROGRAM CONTAINS NO CODED ERROR HALTS. IF THE PROGRAM HALTS 
(ASSUMING, OF COURSE, THAT SwW<15> 1S NOT SET), AN UNRECOVERABLE 

Sop peme pead bens HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS 
OCCURRED. 


ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE 
SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

MESSAGES EM1, EM2, EM3, EM4, EMS, EMI0O, EM11, & EMi2 ARE ALWAYS 
DISPLAYED ON THE TTY. THE OTHER MESSAGES ARE DISPLAYED ON EITHER 
THE LINE PRINTER (IF AVAILABLE) OR THE TTY. 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 


ME SSAGE 
TAG TEXT 


EM} RH11 INTERRUPT OCCURRED (RPAS=0) 


THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER 
(RPAS) WAS CLEARED. : 


EM2 UNEXPECTED ATTENTION OCCURRED 


THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION, 


MASSBUS PARITY ERROR (MCPE=1) 
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THE RH11 DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


EMG MASSBUS PARITY ERROR (PAR=1) 


THE INDICATED RPO4 DETECTED A CONTROL BUS PARITY ERROR 
WHEN ThE RH11 LOADED THE SPECIFIED REGISTER. 


EMS ADDRESS PLUG CHANGE BIT SET 
THE ‘OPE’ BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
EM6 RH11 DIDN'T RESPOND 10 ADDRESSING 


WHEN THE PROGRAM ADDRESSED THE RHI1, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


EM10 UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
REGISTER. 


EM11 FATAL MASSBUS PARITY ERROR 


A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 


EM12 PERSISTENT DEVICE UNSAFE 
THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DID 
NOT CLEAR THE UNSAFE CONDITION. THE PROGRAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE DRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN 
CLEARED. 

EM15 OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
AFTER THE OPERATION WAS INITIATED. 


EM14 UNIT WENT OFFLINE 
THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION, 
(THE ‘MOL’ BJT BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY 
DEASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE ‘T' COMMAND TO RE-INITIATE TESTING. 
—M15 NO RESPONSE TO PORT REQUEST 
THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
TO THE REQUESTING PORT WITHIN 10 SECONDS AFTER PORT REQUEST 
TO THE DRIVE FROM THE REPORTING PORT. 
—M20 HEADER CRC ERROR 


A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS, 


SEQ 0020 
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EM21 


EM22 


EM23 


EM24 


EM25 


EM26 


EM27 


THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 


DATA CHECK ("DCK') ERROR 


A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
+ SECTOR IN ERROR IF THE ECC HARD ERROR (*ECH) BIT 


WRITE CHECK ERROR = DATA CHECK (*DCK*) SET 


A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK (‘9CK*) BIT 
WAS SET. IF “‘ECH' IS NOT SET, THE OPERATION WILL BE RETRIED 
UP 10 3 TIMES; IF THE ‘ECH’ BIT 1S SET, THE OPERATION WILL 
BE RETRIED UP TO 16 TIMES. 


WRITE CHECK ERROR = DATA CHECK ("DCK') NOT SET 

A WRITE CHECK ERROR OCCURRED AND ‘DCK* WAS NOT SET. THE 
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 5 TIMES. 

HEADER READ ERROR - ‘FMT’ BIT DROPPED 

A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A ‘FMT' ERROR OCCURRED. THE PROGRAM RE-READ THE 
HEADER OF THE ERROR SECTOR AND THE ‘HCRC* BIT WAS SET. THE 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILi 
BE RETRIED 3 TIMES. 

HEADER READ ERROR = HEADER COMPARE ("HCE") ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 3 TIMES. 


FORMAT ERROR (‘FER*) 

FORMAT ERROR OCCURRED. WHEN THE HEADER WAS RE-READ, THE 
"HCRC* BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 
HEADER COMPARE (‘HCE’) ERROR 


SIMILAR TO EM26 EXCEPT THAT THE ‘HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


SEQ 002i 


| 
' 
a a a ed 


on 
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THIS eat I$ GIVEN FOR bar My Lips ERROR BITS: 
"sme", “AOE”. “Ore, “F’, *ILR 

OPERATION INCOMPLETE ("OPI") ERROR 

~ ate INCOMPLETE ERROR OCCURRED AT THE INDICATED 
SECTOR. 


DRIVE TIMING ('DTE') ERROR . 


DRIVE TIMING ERROR OCCURRED IN THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 1IMES. 


PARITY ("PAR") ERROR AFTER OPERATION STARTED 


THE "PAR’ BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


WRITE CLOCK FAILURE ("WCF") 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


| 
i er SE 


on 

























Em35 


EM36 


EM4O 


EMG] 


EM42 


EM43 


EMG4 


EM45 


EM46 


EM5O 
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iNVALID ADDRESS ("1AE") ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
WRITE LOCK ("WLE') ERROR 

Pah OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 


RH11 OR UNIBUS TRANSFER ERROR 

TRE’ IS SET IN THE RH11 CONTROL REGISTER AND NO DRIVE 

ERROR HAS OCCURRED. THE OPERATION WILL BE RETRIED 3 

TIMES IF THE ERROR WAS CAUSED BY "DLT", "UPE', ‘MXF', 

OR "MDPE’. 

BUS ADDRESS OR WORD COUNT INCORRECT 

NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES 
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER 1S NOT ZERO. 

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 


NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE. 


CAN'T MATCH DATA READ WITH A PATTERN 


THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 

THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
FOUND EJTHER ERROR BITS IN THE RPO4 SET OR ERROR BITS IN 
THE RH11 SET. 

ECC LOGIC FAILURE 

THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RPEC1) 
OR THE CONTENTS OF ECC PATTERN REGISTER (RPEC2) ARE NOT 
VALID. THE POSITION REIGSTER IS E1THER'O’ OR > 10041 (8) 
OR THE PATTERN REGISTER CONTAINS ZEROS. 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT 

THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 

SEEK INCOMPLETE OR OFF CYLINDER ERROR 


THE DRIVE SIGNALED EITHER ‘SKI* OR “OCYL® ERROR BITS. 
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EMS] PROGRAM DETECTED POSITIONING ERROR 


A HEADER COMPARE ERROR OCCURRED (*HCE*); HOWEVER, WHEN THE 
PROGRAM EXAMINED THE HEADER OF THE SECTOR IN ERROR, IT 
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS 
OF ‘RPCC’ OF THE DRIVE. THE DRIVE WILL BE RECALIBRATED. 


EM60 DEVICE UNSAFE 


THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A ‘DRIVE CLEAR’ INSTRUCTION. 


7.2 DETAIL ERROR LINES 


THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


TT:TT:TT (DESCRIPTION OF ERROR) 


*TT:TT:TT® IS THE TIME SINCE THE PROGRAM 
WAS STARTED. TT:TT:TT IS GIVEN IN HOURS: 
MINUTES: SECONDS. 


sagem ee 3 
re Ye 
‘PRESENT ORDER = XXXX PREVIOUS ORDER= WYN 5 


MNEMONICS USED FOR THE ORDERS ARE DEFINED we.ou, as rf 
# 


UNLOAD = UNLOAD (OCTAL 3) * 

SEEK = SEEK (OCTAL 5) cae .) 

RECAL = RECALIBRATE (OCTAL 7) eau. 
DRVCLR = DRIVE CLEAR (OCTAL 11) 

RELSE = RELEASE (OCTAL 13) 

OFFSET = OFFSET (OCTAL 15) ; e 

RTC = RETURN TO CENTERLINE (OCTAL 17) . 

READIN = READIN PRESET (OCTAL 21) 

PACK = PACK ACKNOWLEDGE (OCTAL 23) 

SEARCH = SEARCH (OCTAL 31) 

WCKD - WRITE CHECK DATA (OCTAL 51) 

WCKHD = WRITE CHECK HEADER : pate (OCTAL 53) 

WRIDAT = WRITE DATA (OCTAL 6 

WRTHD = WRITE CHECK HEADER & DATA (OCTAL 63) ° 
RDDAT = READ DATA (OCTAL 71) 

RDHD - READ HEADER & DATA (OCTAL 73) 


(DISPLAY OF THE RH11/RP04/5/6 REGISTERS IN TWO GROUPS: 
RPCS1,RPCS2,RPDS1,RPER1,RPERZ,RPERS,RPECI, & RPEC2 FORM THE FIRST 
GROUP; ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP. 

IF Sw<05> ‘s SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 
DISPLAYED. 
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THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 


** ERROR AT BAD TRACK/SECTOR* 


THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ON THE PACK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
*“NOTPRT® MUST BE 0 FOR THE ERROR 10 BE REPORTED. 


A WORD CALLED ‘STATUS* IS DISPLAYED WITH THE RPO4/5/6 REGISTERS. THE 

CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 

tye try Sw HANDLER ROUTINE. THE BITS IN THIS WORD ARE ENCODED 
LLOWS: 


BIT # MEANING IF BIT IS ‘1° 

15 ERROR OCCURRED 
DONE (BI1T07=0), BITS 14-9, 2, 1 SPECIFY TYPE 
DONE (BITO7=1), BITS 6-3 SPECIFY TYPE 

14 DRIVE 1S OFFLINE 

12 PERSISTENT UNSAFE CONDITION EXISTS 

11 UNCORRECTABLE PARITY ERROR OCCURRED 

10 FATAL PARITY ERROR OCCURRED. MASSBUS CLEAR 
WAS PERFORMED 

9 OPERATION NOT COMPLETED WITHIN 1 SECOND 


MASSBUS CLEAR PERFORMED. ALL OTHER 
OUTSTANDING OPERATIONS WERE RESTARTED. 


7 DONE - OPERATION COMPLETED 

6 DATA ERROR OCCURRED DURING THE TRANSFER 

5 ERROR OCCURRED WHILE SEARCHING FOR THE ‘TRANSFER’ 
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS 

“ CORRECTABLE UNSAFE CONDITION OCCURRED 

3 DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC 
RECALIBRATE SEQUENCE 

2 PORT REQUEST TIMEOUT 

1 NON-EXISTENT DRIVE REQUESTED 


ERROR AT CXXK TYY S22 PREV ADDR = CUUU TVV Sid 
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THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 


PRESENT ADDR = CXXX TYY SZ2Z PREV ADDR = CUUU TVV SWwW 


THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECT 
THE PREVIOUS ADDRESS 1S ALSO GIVEN. CYLINDER, TRACK, & SE 
ADDRESSES ARE GIVEN IN DECIMAL. 


ED; 
CT 


START CYL = XXX END CYL = YYY 
THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK CIMPLIED) 


AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 
DECIMAL. 


START CYL = XXX END CYL = YYY ACTUAL CYL = 222 
THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 


THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 


RPBA = XXXX RPWC = YYYY 
THIS LINE GIVES THE CONTENTS OF THE RH11 BUFFER ADDRESS 


REGISTER AND THE RH11 WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF Sw<05> IS NOT SET. 


START CYL = XXX START TRK = YY START SECTOR = 72 
THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 


RPDA = XXXX RPCA = YYYY 


THIS LINE GIVES THE CONTENTS OF THE RPO4 TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
ADDRESS REGISTER. THIS LINE 1S NOT PRINTED IF Sw<05> IS NOT 
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SET. 
LINE 10 


BUFFER ADDR = XXXX SIZE = YYYY ACTUAL NUMBR WRDS XFRD = 2222 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS SIZE, AND THE ACTUAL NUMBER 
OF WORD TRANSFERED. THE STARTING ADDRESS OF THE BUFFER IS IN 
OCTAL, THE SIZE AND WORD TRANSFERED VALUE ARE IN DECIMAL. 


LINE 11 


GOOD DATA = XXXX BAD DATA = YYYY SECT POS = 222 

THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE DISK, 
AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 
POSITION IS IN DECIMAL. 


LINE 12 


HEADER CONTENTS OF ERROR SECTOR = XXXM XXXK XXKK KKK 


THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


LINE 13 


RPEC1 = XXKX RPEC2 = YYYY 


THIS: LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 
WHICH BECAME ECC CORRECTABLE DURING RETRY. 


LINE 14 


ECC CORRECTABLE WITHOUT OFFSET 


THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY. 


LINE 15 


READ CORRECTLY AT OFFSET X MICRO-INCHES 


THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


LINE 16 


SEQ 0028 
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ECC CORRECTABLE AT OFFSET XK MICRO-INCHES 
iat IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


LINE 17 


CORRECTED ON X RETRY 


Hg 8 aaa WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 
4A PT. 


LINE 18 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


LINE 19 


DIFFERENT ERROR DURING RETRY 

WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 
IF THIS LINE IS PRINTED, THE RH11/RPOS REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


LINE 20 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


TOTAL COMPARE ERRORS = XXXX 


THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 


LINE 22 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


LINE 23 


wail 
on 
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ECC CORRECTION RESULTS 

THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. 
THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
BEFORE CORRECTION AND THE WORD(S) AFTER COPRECTION ARE PRINTED. 


LINE 24 























ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 
THIS 1S AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ‘DCK" ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 


ep ris RETRY. ‘XXK' IS THE WORD OFFSET VALUE FROM ‘RFECT® AND IS IN ~~ Sa rain eae ns 
DECIMAL. 


LINE 25 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN'T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED 10 MEMORY. 
LINE 26 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF Sw<O03> 1S SET, THE SECTOR WHICH GAVE THE 'DCK', “DTE* OR, 
‘wCF' ERROR OR ‘HARD’ DATA CHECK ERROR IS PRINTED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


LINE 27 


ORDERS: Www ERRORS: X WRDS XFR: YYYY WRDS READ: 2222 


THIS 1S THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 


"ORDERS' IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE 
WHICH REPORTED THE ERROR. 


"ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


"WRDS XFR' JS THE TCTAL NUMBER OF WORDS WRITTEN AND READ BY 
THE DRIVE. 


"WRDS READ' IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 
LINE 28 


ORDERS: Wh TOTAL SEEKS: XXK TOTAL POS ERR = vV¥¥ TOTAL SKI, OCYL ERR = 2 
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THIS 1S THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


*ORDERS’ 1S THE TOTAL NUMBER OF ORDERS GIVEN TO THE DRIVE WHICH 
REPORTED THE ERROR. 


"TOTAL SEEKS’ 1S THE TOTAL NUMBE® OF SEEK OPERATIONS PERFORMED 
BY THE DRIVE. 


"TOTAL POS ERR’ IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH 
THE PROGRAM DETECTED FOR THE DRIVE. 


"TOTAL SKI,OCYL ERR’ IS THE TOTAL NUMBER OF "SKI" OR ‘OCYL’ ERRORS 
SIGNALED BY THE DRIVE. 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 


WHEN THE PROGRAM IS STARTED, ALL TABLES AND 

PARAMETERS ARE CLEARED OR INITIALIZED. THE PARAMETERS WHICH ARE 
UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 
CONSISTENCY. RH11 INTERRUPT ENABLE (‘IE') IS SET, TTY KEYBOARD 
INTERRUPT ENABLE IS SET, AND THE KWil-L OR KW1i1l-P CLOCK IS STARTED. 
WHEN THESE ACTIONS HAVE BEEN COMPLETED, THE PROGRAM TYPES OUT 
"PROGRAM INTIALIZE COMPLETE’. COMMAND ENTRIES WILL NOW BE ACCEPTED 
BY THE PROGRAM 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


1) DRIVES TO ASSIGN/DEASSIGN 

2) PERFORMANCE SUMMARY TYPEOUT REQUESTS 

3) DRIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT, 
OR PARAMETER SELECTION. 

4) DRIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT INITIAL START, THE FIRST ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ('T' COMMAND). 


WHEN A DRIVE IS ASSIGNED, THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE 
DRIVE 1S PRESENT, IS AN RPO4/5/6, AND 1S ONLINE. THE ASSIGNMENT ROUTINE 
THEN ISSUES A ‘READIN PRESET’ INSTRUCTION, SETS ‘FMT22°, AND ISSUES 

A *RECALIBRATE’ INSTRUCTION. 


PARAMETERS FOR THE CPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK ORDER, THE ASSIGNED BUFFER 
WILL BE FILLED WITH THE SELECTED PATTERN. (WRITE CHECK ORDERS ARE 
ISSUED AFTER EACH WRITE ORDER. THE WRITE CHECK ORDER USES THE 
PARAMETERS SELECTED FOR THE PRECEEDING WRITE ORDER.) CONTROL 

1S THEN PASSED TO THE COMMAND INITIATION ROUTINE. 


THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 
THE REQUESTED OPERATION. IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER 


SEQ 0051 
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PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INSTURCTION 

TO THE DRIVE WITH A ‘TARGET’ SECTOR WHICH IS 8 SECTORS EARLIER 
THAN THE ‘TRANSFER’ SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 
OPERATIONS ON ANOTHER DRIVE WHILE THE PRESENT DRIVE, OR OTHER 
DRIVES, ARE SEARCHING FOR ‘TARGET’ SECTORS. ALL SEEKS ISSUED BY 
THE PROGRAM ARE IMPLIED SEEK SEARCH OPERATIONS.) WHEN A SEARCHING 
DRIVE FINDS THE ‘TARGET® SECTOR AND INTERRUPTS, THE PROGRAM READS 
THE LOOK AHEAD REGISTER (RPLA) OF THE INTERRUPTING DRIVE AND 
COMPARES THE POSITION OF THE DISK WITH THAT OF THE DESIRED SECTOR. 


If OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED. THE 
PROGRAM THEN ISSUES THE REQUESTED ORDER TO THE DRIVE NEAREST ITS 
TRANSFER SECTOR. THE DRIVES NOT SELECTED WILL HAVE ANOTHER SEARCH 
INITIATED. IF A DRIVE 1S NOT SELECTED FOR TRANSFER AFTER THREE 
REVOLUTIONS OF ITS DISK, 11 IS GIVEN PRIORITY OVER DRIVES WHICH HAVE 
NOTE BEEN ON CYLINDER AS LONG. 


WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 


If THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS 
ARE CHECKED TO VERIFY THAT. NO ERROR BITS ARE SET; THE RH11 BUS ADDRESS 
AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIFY THAT THE 

CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE TWO REGISTERS 
ARE CONSISTENT WITH EACH OTHER; AND IF THE ORDER WAS A READ ORDER, THE 
DATA BUFFER 1S COMPARED. WHEN THIS SEQUENCE IS COMPLETED, THE DRIVE 

1S RETURNED TO THE ASSIGNED, INACTIVE LIST. THE PROGRAM THEN 

INITIATES A DATA TRANSFER ON A WAITING DRIVE AND RESELECTS AND 
REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 


ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 


A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 


PERSISTENT UNSAFE CONDITION - EMI12 

UNCORRECTABLE MASSBUS PARITY ERROR - EM10 

FATAL MASSBUS PARITY ERROR - EM11 

OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13 
UNIT WENT OFFLINE = EM14 


B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 


CORRECTABLE UNSAFE - EM60 

DRIVE TIMING ERROR - EM32 

DATA CHECK ERROR - EM21 

WRITE CHECK WITH DCK SET - EM22 

HEADER CRC ERRORS - EM20 

FORMAT ERRORS = EM24, EM26 

HEADER COMPARE ERRORS - EM25, EM27 
PROGRAM DETECTED POSITIONING ERROR - FMS] 
SEEK INCOMPLETE OR OFF CYLINDER ERROR - EM5SO 
WRITE CHECK WITHOUT 'DCK* SET = EM23 

RH11 OR UNIBUS TRANSFER ERROR = EM4O 
"OPi* ERROR - —M31 

"PAR' ERROR = E£M33 
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"WCF’ ERROR = EM34 
"]AE* ERROR = EM35 
"WLE* ERROR = EM36 
MISCELLANEOUS DRIVE ERROR - E30 


C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT - EM41 

DATA COMPARE ERRORS ~ NO DRIVE ERROR DETECTED - EM42 

CAN'T MATCH DATA READ WITH A PATTERN = EMG3 

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RHI] = EM44 
ECC LOGIC FAILURE = EM45 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46 


DUAL PORT OPERATION 


PROGRAMMABLE DRIVES (DUAL PORT) OPERATION IS INHIBITED WITH STARTING ADDRESS 200-SEE SEC 2.4. 


THEREFORE, USE STARTING ADDRESS 204 OR 220 FOR DUAL PORT TESTING. 


DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND ORDER TERMINATION. 


WHEN THE DUAL PORT HANDLER ROUTINE IN THE MULTIDRIVE PROGRAM RECEIVES 
A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 
ONLINE. THE DRIVE IS SELECTED AND O'S ARE WRITTEN INTO “RPDSI': 

IF THE DRIVE IS IN NEUTRAL, THIS WILL SEIZE THE DRIVE. IF THE 

DRIVE 1S SEIZED BY THE OTHER PORT, WRITING INTO ‘RPDS1" WILL SET 
"PORT REQUEST’. THE PROGRAM CHECKS "DVA' IN "RPCS1'. IF THE DRIVE 
1S AVAILABLE AS INDICATED BY THE ‘DVA* BIT, THE COMMAND SEQUENCE 
WILL BE INITIATED IN THE NORMAL MANNER (SEE SECTION 8.1 ABOVE). 

IF ‘DVA' WAS NOT SET, THE PROGRAM MAKES AN ENTRY FOR THE DRIVE 

IN AN INTERNAL ‘PORT REQUEST PENDING’ TABLE AND 

STARTS A 20 SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 

NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 20 SECOND INTERVAL, 
THE PROGRAM REPORTS A ‘NO RESPONSE TO PORT REQUEST’ ERROR, NORMALLY 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 
LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS 
(E.G. MASSBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 

ON A MOD33 TTY), THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE AWARE OF 
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 


AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 


“THE REGISTERS AND ISSUE A ‘RELEASE* TO THE DRIVE; IF THE OPERATION ~ 


TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 


SINGLE PORT DRIVES, DRIVES WHICH 

ARE IN NEUTRAL BUT NOT BEING EXERCISED BY THE OPPOSITE PORT ARE STILL 
TREATED AS DUAL PORT DRIVES IN THAT A RELEASE COMMAND IS ISSUED 

AT THE END OF NORMAL ORDER PROCESSING OR AT THE END OF ERROR PROCESSING. 
A RELEASE COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL 

EFFECT ON THE OPERATION OF THE DRIVE. 
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SELECTION OF OPERATION VARIABLES 


A. SECTOR ADDRESS SELECTION 1S RANDOM BETWEEN THE VALUES IN 
"MINSEC’ AND "MAXSEC’. TRACK ADDRESS SELECTION IS RANDOM 
BETWEEN THE VALUES IN 'MINTRK" AND ‘MAYTRK'. CYLINDER ADDRESS 
SELECTION 1S RANDOM BETWEEN 'MINCYL® AND "MAXCYL'. IF A MINIMUM 
ADDRESS 1S GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS, THE 
PROGRAM WILL EXCLUDE ALL ADDRESSES BETWEEN ‘MAX’ AND "MIN* FROM 
THE SELECTION. FOR EXAMPLE: IF "MINTRK® 1S 18 AND "MAXTRK" IS 
1S 5, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 6 - 17 
ae THE SELECTION AND SELECT AN ADDRESS FROM AMONG ADDRESSES 


’ ’ 2 ° o 4, e 


B. THE BUFFER SIZE 1S RANDOM SELECTED BETWEEN 4 (10) = AND THE 
VALUE IN "MAXDL'. THE SIZE SELECTED 1S WEIGHTED TO ENSURE 
THAT AT LEAST 4 WORDS ARE WRITTEN IN THE DATA AREA OF THE LAST 
SECTOR. THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA 
TO A PATTERN FOR DATA COMPARISON PURPOSES. 


C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15 STANDARD 
PATTERNS. THE KEYWORDS IN THE HEADER (WHEN PERFORMING A WRITE 
HEADER & DATA ORDER) ARE ZERO FILLED. THE PROGRAM EXPECTS T0 
FIND THAT THE KEYWORDS ARE ZERO. 


D. THE ORDERS ARE SELECTED RANDOMLY. WRITE CHECK DATA AND WRITE 
CHECK HEADER & DATA ORDERS ARE PERFORMED ONLY IF THE PREVIOUS 
ORDER WAS THE APPROPRIATE DATA ORDER. IF THE ‘FORMAT’ PARAMETER 
1S ZERO, THE PROGRAM WILL NOT SELECT WRITE HEADER & DATA (AND 
WRITE CHECK HEADER & DATA) ORDERS. WHEN THE PROGRAM SELECTS 
A WRITE HEADER & DATA ORDER, THE BUFFER SIZE 1S FORCED 10 
260 (10); THE PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT 
WRITE OPERATION. 


E. THE FIRST ORDER PERFORMED AFTER A UNIT IS ASSIGNED WITH A 
*T', ‘w', OR 'R' COMMAND 1S NOT RANDOMLY SELECTED. THE PARAMETERS 
FOR THE FIRST OPERATION ARE THE MINIMUM OR STARTING VALUES OF 
THE VARIABLES. 


DATA PATTERNS 


THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 

WHEN A WRITE ORDER IS SELECTED. THE ENTIRE BUFFER IS FILLED wlit 

THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM 
COMPARES DATA ON A SECTOR BASIS: FROM THE FIRST & DATA WORDS OF 

EACH SECTOR, THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING 
PATTERNS. TO MANTAIN COMPATIABILITY WITH PACKS WRITTEN BY THE FORMAT 
PROGRAM (MAINDEC-11-DZRJB), THE PROGRAM WILL ACCEPT ALL ZEROS AND 
AND ALL ONE'S PATTERNS; HOWEVER, ALL ZERO'S AND ALL ONE'S 

PATTERNS ARE NOT WRITTEN BY THE EXERCISER PROGRAM, 


PATTERN 'B' 3S DEFINED AS THE ‘WORST CASE* PATTERN, 
PAT 1 PAT e pat 5 =~PAT 4 PAT 5 PAT 6 pat 7 ~=6PAT 


000001 177776 000000 000000 052525 00741? 026455 165555 
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000000 010421 052525 007417 
000000 021042 052525 007417 
177777 =031463 125252 170360 
177777 042104 125252 170360 
177777 =052525 125252 170360 
000000 063146 052525 007417 
000000 073567 052525 007417 
177777 =104210 125252 170360 
177777 114631 125252 170360 
000000 125252 052525 007417 
177777 «135673 125252 170360 
000000 146314 052525 007417 
177777 =156735 125252 170360 
000000 167356 052525 007417 
177777 «177777 «125252 6170360 
PAT 11 PAT 12 PAT 15° PAT 14 
172666 077777 153333 000000 
155555 137777 066667 177777 
172666 157777 153333 177777 
155555 167777 066667 177777 
172666 173777 153333 177777 
155555 175777 066667 177777 
172666 176777 153333 177777 
155555 177377 066667 177777 
172666 177577 153333 177777 
155555 177677 066667 177777 
172666 177737 153333 177777 
155555 177757 066667 177777 
172666 177767 153333 177777 
155555 177773 066667 177777 
172666 177775) «153333 177777 
155555 177776 066667 177777 
TITLE CZRJDDO, RPO4/5/6 MLT-DR LGC 


s*COPYRIGHT (C) 1975,1979 
s*DIGITAL EQUIPMENT CORP. 
:*MAYNARD, MASS. 01754 


‘ft 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=1i MAINDEC SYSMAC 
pOPACEAGE (MAINDEC=11-DZQAC-C3), 977. 


* SBITL 
® 


JAN 19, 


OPERATIONAL SWITCH SETTINGS 


be es 
NANA NA WAWEWO WOW 
AAA A AO OO 
AAA AAA ON OT 
AAA ON OT 
ADAP ADA ON TAT 


OOO VT 


on 


———____——_—_ 
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1829 :* SWITCH USE 

1830 rr ee 

1831 :* 1§ HALT ON ERROR 

1832 ;* 13 INHIBIT ERROR TYPEOUTS 

1823 :* 10 BELL ON ERR 

1834 30 7 DISPLAY ALL OpaTA COMPARE ERRORS 

1835 3? 6 DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 

1836 * oer 5 A. PARTIAL REGISTER DISPLAY IF ERROR 

1837 ;* B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 

1838 :* 4 A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 

1839 3° B. DO NOT DROP DRIVE WHEN NORMAL END OF TEST REACHED 

1840 ;* 3 A. DISPLAY ERROR SECTOR IF ‘DCK', 'DTE', OR ‘WCF’ ERROR 

1841 ;* B. DISPLAY SECTOR IF "DCK" ERR UNCORRECTABLE AFTER 

1842 i* 28TH RETRY 

1843 3e C. IF DATA COMPARE ERROR & SwW7 SET, DISPLAY 

1844 ie REMAINDER OF BUFFER 

1845 ;* 2 A. DON'T TYPE SUBSYSTEM STATUS WHEN PROGRAM STARTED 

1846 ;* B. DON'T TYPE PERFORMANCE SUMMARY 

1847 ;* 1 INHIBIT DATA COMPARSION AFTER READ ORDERS 

1848 ;* 0 READ ONLY MODE 

1869 .SBTTL BASIC DEFINITIONS 

1851 s*]NITIAL ADDRESS OF THE STACK POINTER *#* 1100 eee 

1852 001100 STACK= 1100 

1853 .EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 

185 -EQUIV 10T,SCOPE :;BASIC DEFINITION OF SCOPE CALL 

1856 :*MISCELLANEOUS DEFINITIONS 

1857 000011 HT= 1 ::CODE FOR HORIZONTAL TAB 

1858 000012 LF= 12 =;CODE FOR LINE FEED 

1859 000015 CR= 15 >: CODE FOR CARRIAGE RETURN 

1860 000200 CRLF= 200 CODE FOR CARRIAGE RETURN-LINE FEED 

1861 177776 PS= 177776 ::PROCESSOR STATUS WORD 

1862 EQUIV PS,PSW 

1863 177774 STKLMT= 177774 :;STACK LIMIT REGISTER 

1864 177772 PIRQ= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 

1865 177570 DSwk= 177570 : HARDWARE SWITCH REGISTER 

1866 177570 DDISP= 177570 : HARDWARE DISPLAY REGISTER 

6 

1868 :*GENERAL PURPOSE REGISTER DEFINITIONS 

1869 000000 RO= 20 GENERAL REGISTER 

1870 000001 Ri= %1 >:GENERAL REGISTER 

1871 000002 R2= %2 >:GENERAL REGISTER 

1872 000003 R3= 23 >;GENERAL REGISTER 

1873 000004 R4G= %4 :;GENERAL REGISTER 

1874 000005 R5= 45 :GENERAL REGISTER | 

1875 000006 ROo= %6 >:GENERAL REGISTER | 

1876 000007 R7= %7 >:GENERAL REGISTER 

1877 000006 SP= %6 =:STACK POINTER | 

lars 000007 P(= “7 >;PROGRAM COUNTER | 

1 

1880 s*PRIORITY LEVEL DEFINITIONS 

1881 000000 PRO= 0 ::PRIORITY LEVEL 0 | 

1882 000040 PRI= 40 > sPRIORITY LEVEL 1 

1883 000100 PR2- 100 > PRIORITY LEVEL 2 

1884 000140 S. Age “PRIORITY LEVEL 3 | 
| 
j 


ee 
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1885 000200 PR4G= 200 sr PRIORITY LEVEL 4 
1886 000240 PRS= 240 s PRIORITY LEVEL 5 
1887 000300 PR6= 300 s PRIORITY LEVEL 6 
eee 000340 PR7= 340 : PRIORITY LEVEL 7 
1890 z*’"SWITCH REGISTER’ SWITCH DEFINITIONS 
1891 100000 Swi5= 100000 
1892 040000 Swi4= 48000 
1893 020000 Swi3= 20000 
1894 010000 Swi2= 10000 
1895 004000 Swil= 4000 
1896 002000 Swi0= 2060 
1897 001000 swo9= 1000 
1898 000400 swO8= 400 
1899 000200 swO7= 200 
1900 000100 Sw06= 100 
1901 000040 swOS= 40 
1902 000020 sw04= 20 
1903 000010 swO3= 10 
1904 000004 SWO2= 4 
1905 000002 SwOl= 2 
1906 006001 swOO= 1 
1907 -EQUIV SW09,SW9 
1908 EQUIV SWO08,SwW8 
1909 EQUIV SWO7,SW7 
1910 EQUIV SW06,SW6 
1911 EQUIV Sw0S,SW5 
1912 EQUIV SW04,SW4 
1913 EQUIV SwO03,SW3 
1914 EQUIV Sw02,SW2 
1915 -EQUIV SWwO1,SW1 
ine -EQUIV Sw00,SWwO0 
1918 :*DATA BIT DEFINITIONS (B1T00 TO BITi5) 
1919 100000 B1T15= 100000 
1920 040000 B1T14= 40000 
1921 020000 B1T13= 20000 
1922 010000 BIT12= 10000 
1923 004000 BIT11= 4000 
1924 002000 B1T10= 2000 
1925 001000 BIT09= 1000 
1926 000400 B1T08= 400 
1927 000200 B1107= 200 
1928 000100 B1T06= 100 
1929 000040 B1T05= 40 
1930 000020 BI1T04= 20 
1931 000010 B1T03= 10 
1932 000004 BITO2= 4 
1933 000002 BIT01= 2 
1934 000001 BIT00= 1 
1935 -EQUIV BI109,BIT9 
1936 EQUIV B1108,B118 
1937 -EQUIV BIT107,B117 
1938 -EQUIV B1106,B116 
1939 -EQUIV B1105,B115 
1940 -EQUIV BIT104,B114 
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ar 


BASIC DEFINITIONS SEQ 0038 


-EQUIV. B1T03,B1T3 
-EQUIV B1T02,B1T2 
-EQUIV B1101,B1T1 
EQUIV B1100,B1T0 


Lometta steal TRAP VECTOR rar ar 
ERRVEC= 3;TIME OUT AND OTHER ERRORS 


RESVEC= to Sh ate AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 “Tt BIT 

TRIVEC= 14 :; TRACE TRAP 

BPTVEC= 1 ;BREAKPOINT TRAP (BPT) 

1OTVEC= 20 : INPUT /OUTPUT TRAP (101) **SCOPE*® 
PWRVEC= 24 ;;POWER FAIL 

EMTVEC= 30 ;;EMULATOR TRAP (EMT) **ERROR*®* 
TRAPVEC=34 7;""TRAP’’ TRAP 

TKVEC= 60 3; TTY KEYBOARD vECTOR 

TPVEC= 64 7: TTY PRINTER VECTOR 


PIRQVEC=240 


7;PROGRAM INTERRUPT REQUEST VECTOR 


syeeeeeeerererenertrreretrerereereeereeeeaeAeRenenaeenNeeeAseAA eS 


-SBTTL RH11 REGISTERS } 


sp eeeeeererereeerereerererrerererenereeeAAaeeeeAneeeeeeseeeNe eee 


;CONTROL AND STATUS REGISTER 1 (RPCS1) 


IE= 100 ; INTERRUPT ENABLE (BIT #6) 

RDY= 200 :READY (BIT #7) 

Al6= 400 ;HIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al7= 1000 :HIGH ORDER BUS ADDRESS BIT (81i #9) 
PSEL= 2000 PORT SELECT (BIT #10) 

MCPE= 20000 :MASSBUSS PARITY ERROR (BIT #13) 
TRE= 40000 7 TRANSFER ERROR (BIT #14) 


:SC= 100000 


;WORD COUNT REGISTER (RPWC) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RPBA) 
(EACH BIT IS CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RPCS2) 


:SPECIAL CONDITION (BIT #15) 


US1= 1 UNIT SELECT (BIT #0) 

US2= 2 UNIT SELECT (BIT #1) 

US4= ;UNIT SELECT (BIT #2) 

BAI = 10 ;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT= 20 >MASSBUS PARITY TEST (BIT #4) 

CLR= 40 "CLEAR (BIT #5) 

]R= 100 ; INPUT READY (BIT #6) 

OR= 200 OUTPUT READY (BIT #7) 


MXF = 1000 :MISSED TRANSFER ERROR (BIT #9) 
PGE= 2000 ;PROGRAM ERROR (BIT #10) 


| 
MPE= 400 :MASS BUS PARITY ERROR (BIT #8) | 
NEM= 4000 NON EXISTENT MEMORY (BIT #11) 


on 
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1997 010900 NED= 10000 sNON EXISTENT DRIVE (BIT #12) 
1998 020900 UPE= 20000 ;UNIBUS PARITY ERROR (BIT #13) 
1999 040900 wCE= 40000 WRITE CHECK ERROR (BIT #14) 
oy 100000 DLT= 100000 ;DATA LATE (BIT #15) 

2002 ;DATA BUFFER REGISTER (RPDB) 
20035 ; (EACH BIT IS CALLED BY BIT NUMBER) 
2004 
2005 
2006 pL eteeerererereererrreererreererereeeterteneteReteneeeeeReereee 
2007 
2008 -SBTTL RPOG/5/6 REGISTERS 
2009 
2010 ppewereererrerererereerrerrereerereeerereteneeeeneteteeetereneee 
2011 
ott ;CONTROL AND STATUS 1 REGISTER. (#00) 
2014 000001 GO= 1 360 BIT (BIT #0) 
2015 000002 Fil= 2 sFUNCTION CODE BIT #1 
2016 000004 F2= 4 sFUNCTION CODE BIT #2 
2017 000010 F3= 10 sFUNCTION CODE BIT #3 
2018 000020 F4= 20 sFUNCTION CODE BIT #4 
2019 000040 F5= 40 sFUNCTION CODE BIT #5 
soet 004000 DVA= 4000 ;DEVICE AVAILABLE (BIT #11) * 
sass DRIVE STATUS REGISTER (RPDS1) (#01) 
2024 DF 5= 1 DRIVE FORWARD S''/SEC. (BIT #0) 
2025 009002 DFF20= 2 ;DRIVE FORWARD 20°'/SEC. (BIT #1) 
2026 000004 D1GB= 4 ;DRIVE TO INNER GUARD BAND (BIT #2) 
2027 000010 GRv= 10 7G0 REVERSE (BIT #3) 
2028 000020 DL64= 20 :DIFFERENCE LESS THAN 64 (BIT #4) 
2029 000040 DEl= 40 sDIFFERENCE EQUALS 1 (BIT #5) 
2030 000100 VV= 100 ;VOLUME VALID (BIT #6) 
2031 000200 DRY= 200 DRIVE READY (BIT #7) 
2032 000400 DPR= 400 ;DRIVE PRESENT (BIT #8) 
2033 001000 PGM= 1000 ;PROGRAMABLE (BIT #9) 
2034 002000 LST= 2000 ;LAST SECTOR TRANSFERRED (BIT #10) 
2035 004000 WRL= 4000 sWRITE LOCK (BIT #11) 
2036 010000 MOL= 10000 7MEDIUM ON-LINE (BIT #12) 
2037 020000 PI]P= 20000 ;POSITIONING OPERATION IN PRCGRESS (BIT #13) 
2038 040000 ERR= 40000 ;COMPOSITE ERROR (BIT #14) 
44 100000 ATA= 100000 SATTENTION ACTIVE (BIT #15) 
4 
at! sERROR REGISTER #01 (RPERI) (#02) 
4 
2043 000001 ILF= 1 sILLEGAL FUNCTION (BIT #0) 
2044 000002 ILR= 2 sILLEGAL REGISTER (BIT #1) 
2045 000004 RMR= 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
2046 000016 PAR= 10 ;PARITY ERROR (BIT #3) ° 
2047 000020 FER= 20 sFORMAT ERROR (BIT #4) 
2048 000040 WCF = 40 sWRITE CLOCK FAIL (BIT #5) 
2049 000100 ECH= 100 sECC HARD ERROR (BIT #6) 
2050 000200 HCE= 200 ;HEADER COMPARE ERROR (BIT #7) 
2051 000400 HCRC= 400 ;HEADER CRC ERROR (BIT #8) 
2052 001000 AOE= 1000 sADDRESS OVERFLOW ERROR (BIT #9) 
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2053 002000 JAE= 2000 : INVALID ADDRESS ERROR (BIT #10) 
2054 004000 WLE= 4000 sWRITE LOCK ERROR (BIT #11) 
2055 010000 DIE= 10000 DRIVE TIMING ERROR (BIT #12) 
2056 020000 OPI- 20000 sOPERATION INCOMPLETE (BIT #13) 
2057 040000 UNS= 40000 sDRIVE UNSAFE (BIT #14) 
78 100000 DCK= 100000 DATA CHECK ERROR (BIT 15) 
gee sMAINTAINABILITY REGISTER (RPMR) (#03) 
2062 000001 DMD= 1 :DIAGINCSTIC MODE (BIT #0) 
2063 000002 MCLK= 2 ;MAINTAINABILITY CLOCK (BIT #1) 
2064 000004 MINX= 4 :MAINTAINABILITY INDEX (BIT #2) 
2065 000010 MSTCK= 10 :MAINTAINABILITY SECTOR CLOCK (BIT #3) 
2066 000020 MRD= 20 :MAINTAINABILITY READ (BIT #4) 
2067 000040 MWR= 40 :MAINTAINABILITY WRITE (BIT #5) 
ee 000200 DTSY= 200 sMAINTAINABILITY SYNC DETECTED (BIT #7) 
SBT sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 
2072 000001 ATO= 1 sDEVICE 0 (BIT #0) 
2073 000002 AT1= 2 DEVICE 1 (BIT #1) 
2074 000004 AT2= 4 DEVICE 2 (BIT #2) 
2075 000010 AT3= 10 :DEVICE 3 (BIT #3) 
2076 000020 ATG= 20 DEVICE 4 (BIT #4) : 
2077 000040 ATS= 40 DEVICE 5 (BIT #5) 
2078 000100 Alo= 100 :DEVICE 6 (BIT #6) 
ere 000200 AT7= 200 DEVICE 7 (BIT #7) 
2081 DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
g08e : (EACH BIT 1S CALLED BY BIT NUMBER) 
cose DRIVE TYPE REGISTER (RPDT) (#06) 
2086 000001 DTO0= 1 DRIVE TYPE NUMBER BIT 1 
2087 000002 oTO1= 2 DRIVE TYPE NUMBER BIT 2 
2088 000004 DTO2= 4 sDRIVE TYPE NUMBER BIT 3 
2089 000010 DT03= 10 DRIVE TYPE NUMBER BIT 4 
2090 000020 DT04= 20 DRIVE TYPE NUMBER BIT 5 
2091 000040 DT05= 40 DRIVE TYPE NUMBER BIT 6 
2092 000100 DT06= 100 :DRIVE TYPE NUMBER BIT 7 
2093 000200 DT07= 200 :DRIVE TYPE NUMBER BIT 8 
2094 000400 DT08= 400 DRIVE TYPE NUMBER BIT 9 
2095 004000 DRQ= 4000 DRIVE REQUEST REQUIRED (BIT #11) 
2096 020000 MOH= 20000 :MOVING HEAD (BIT #13) 
2097 040000 TAP= 40000 TAPE DRIVE (BIT #14) 
sors 100000 NBA= 100000 :NOT BLOCK ADDRESSED (BIT #15) 
Srot sLOOK-AHEAD REGISTER (RPLA) (#07) 
2102 000001 EXTl= 1 EXTENSION 1 (BIT #0) 
2103 000002 EXT2= 2 sEXTENSION 2 (BIT #1) 
2104 000004 EXT4= 4 sEXTENSION 3 (BIT #2) 
2105 000010 ExT10= 10 EXTENSION 4 (BIT #3) 
2106 000020 ExT20= 20 EXTENSION 5 (BIT #4) 
2107 000040 EXT40= 40 EXTENSION 6 (BIT #5) 
2108 000100 $(1= 100 SECTOR COUNT FIELD 0 (BIT #6) 





an 
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2109 000200 $C2= 200 ;SECTOR COUNT FIELD 1 (BIT #7) 
2110 7$(4= 400 ;SECTOR COUNT FIELD 2 (BIT #8) 
2111 001000 §C10= 1000 :SECTOR COUNT FIELD 3 (BIT #9) 
2112 002000 §(20= 2000 :SECTOR COUNT FIELD 4 (BIT #10) 
2113 004000 TRKI= 4000 STRACK FIELD 1 (BIT #11) 
2114 010000 TRK2= 10000 TRACK FIELD 2 (BIT #12) | 
2115 020000 TRK4= 20000 ; TRACK FIELD 3 (BIT #13) 
2116 040000 TRK10= 40000 :TRACK FIELD 4 (BIT #14) 
217 100000 TRK20= 100000 ; TRACK FIELD 5 (BIT #15) 
2119 ;RPOG ERROR REGISTER #2 (RPER2) (#10) | 

| 
2121 000001 wus] ;WRITE CURRENT UNSAFE (BIT #0) 
2122 000002 (Ste 2 :CURRENT SINK FAILURE (BIT #1) 
2123 000004... wSU= :WRITE SELECT UNSAFE (BIT #2) 
2124 000010 cSuz «10 ;CURRENT SWITCH UNSAFE (BIT #3) 
2125 000020 MSE= = 20 ;MOTOR SEQUENCE ERROR (BIT #4) 
2126 000040 1DF= 40 : TRANSITIONS DETECTOR FAILURE (BIT #5) 
2127 000100 TuF= 100 ; TRANSITIONS UNSAFE (BIT #6) 
2128 000200 FEN= 200 ;FAILSAFE ENABLED (BIT #7) 
2129 000400 wRU= 400 ZWRITE READY UNSAFE (BIT #8) 
2130 001000 MHS= —- 1000 ;MULTIPLE HEAD SELECT (BIT #9) | 
2131 002000 NHS= 2000 :NO HEAD SELECTION (BIT #10) 
2132 004000 IXE= 4000 : INDEX ERROR (BIT #11) 
2133 010000 vu30= 10000 :30VOLT UNSAFE (BIT #12) | 
2134 020000 PLu= 20000 :PLO UNSAFE (BIT #13) | 
2135 100000 ACU= —- 100090 ZAC UNSAFE (BIT #15) | 
2137 ;RP05/6 ERROR REGISTER #02 (RPER2) (#10) 
2139 000001 wus ;WRITE CURRENT UNSAFE (BIT #0) | 
2140 000002 (ie 2 :CURRENT SINK FAILURE (BIT #1) 
2141 000004 wSU=  & ;WRITE SELECT UNSAFE (BIT #2) 
2142 000010 Csu= 10 :CURRENT SWITCH UNSAFE (BIT #3) 
2143 000020 RAW= 20 ;READ AND WRITE (BIT #4) | 
2144 000040 TDF = 40 ; TRANSITIONS DETECTOR FAILURE (BIT #5) 
2145 000100 TuF= 100 ; TRANSITIONS UNSAFE (BIT #6) 
2146 000200 ABS= 200 : ABNORMAL STOP (BIT #7) 
2147 000400 wRu= 400 ;WRITE READY UNSAFE (BIT #8) 
2148 001000 MHS= 1000 >MUTLTIPLE HEAD SELECT (BIT #9) 
2149 002000 NHS= 2000 :NO HEAD SELECTION (BIT #10) 
2150 004000 IXE= 4000 ; INDEX ERROR (BIT #11) 
sias 020000 PLU= 20000 ;PLO UNSAFE (Bli #12) 
2153 SOFFSET REGISTER (RPOF) (#11) 
154 

2155 000001 OF25=. 1 sOFFSET 25 MICRO INCHES (BIT #0) 
2156 000002 OF50= 2 :OFFSET 50 MICRO INCHES (BIT #1) 
2157 000004 OF100= 4 [OFFSET 100 MICRO INCHES (BIT #2) 
2158 000010 OF200= 10 SOFFSET 200 MICRO INCHES (BIT #3) 
2159 000020 OF400= 20 OFFSET 400 MICRO INCHES (BIT #4) 
2160 000040 OFB800= 40 ;OFFSET 800 MICRO INCHES (BIT #5) 
2161 000200 OFREV= 200 [OFFSET NEGATIVE (REVERSE) (BIT #5) 
2162 002000 HC I= 2000 ;HEADER COMPARE INHIBIT (BIT #10) 
2163 004000 ECl= 4000 TERROR CORRECTION CODE INHIBIT (BIT #1): 
2164 010000 FMT22= 10000 “FORMAT BIT (AIT #i2 


on 
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;DESIRED CYLINDER ADDRESS (RPCA) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


;CURRENT CYLINDER ADDRESS ‘RPCC) (#13) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


SERIAL NUMBER REGISTER (RPSN) (#14) 
; (EACH 1S CALLED BY BIT NUMBER) 


;RPO4 ERROR REGISTER #03 (RPER3) (#15) 


PSU= 1 ;PACK SPEED UNSAFE (BIT #0) 
VUF = 2 ;VELOCITY UNSAFE (BIT #1) 

UWR= 10 ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
ACL= 40 3AC LOW (BIT #5) 

DCL= 100 ;0C LOW (BIT #6) 

SKI]= 40000 ;SEEK INCOMPLETE (BIT #14) 
GCYL= 100000 OFF CYLINDER (BIT #15) 
;RP05/6 ERROR REGISTER #03 (RPER3) (#15) 

DCU= 1 ;0C UNSAFE (BIT #0) 

WAQ= 2 sWRITE AND OFFSET (BIT #1) 
ACL= 40 AC LOW (BIT #5) 

DCL= 100 :DC LOW (BIT #6) 

OPE= 20000 ;OPERATOR PLUG ERROR ‘BIT #13) 
SK1= 40000 ;SEEK INCOMPLETE (BIT #14) 
OCYL= 100000 ;OFF CYLINDER ERROR (BIT #15) 


;ECC POSITION REGISTER (RPEC1) (#16) 
> (EACH BIT IS CALLED BY BIT NUMBER) 


sECC PATTERN REGISTER (RPEC2) (#17) 
(EACH BIT IS CALLED BY BIT NUMBER) 


speerercerrerereeeererererereeresereeteeaeateneeeeeNeeeHereeeeNee 


~SBTIL RPO4/5/6 DRIVER COMMANDS 


sseeeerererereresereerereererareeeteneneneneeaeeenereeAsenenenees 


RNOP e 101 sNO OPERATION 
UNLOAD = 103 ; UNLOAD 
SEEK s 105 7 SEEK 
RECAL z 107 ;RECALIBRATE 
DRVCLR = T1% sDRIVE CLEAR 
RELSE = 113 ;RELEASE 
OFFSET = 115 sOFFSET 
TC s 117 >RETURN TO CENTER LINE 
READIN = 121 sREAD IN PRESET 
CK s 123 sPACK ACKNOWLEDGE 
SEARCH = 131 : SEARCH 
GETREG = 141 ;GET REGISTERS 
SETFMT = 143 >SET FORMAT (& ECI OR HCI) 
SELDRV = 145 sSELECT DRIVE 


SEQ 0042 


| 


— 
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000174 
000176 


000200 
000204 


000174 
000000 
000000 


000137 004140 
000137 004122 


MACY11 30A(1052) 
RPO 
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wWwCKD Fe 151 sWRITE CHECK DATA 

wCKHD = 153 sWRITE CHECK HEADER & DATA 
WRIDAT = 161 sWRITE DATA 

WRTHD = 163 sWRITE HEADER & DATA 

RDDAT = 171 ;READ DATA 

RDHD = 173 ;READ HEADER & DATA 


-SBTTL TRAP CATCHER 


-=0 
>*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.#2,HALT"’ 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
cieaascuee CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 7; SOFTWARE DISPLAY REGISTER 

SWREG: «WORD 0 7; SOFTWARE SWITCH REGISTER 

-SBTTL STARTING ADDRESS(ES) 
JMP OaSTART! 3;JUMP TO STARTING ADDRESS OF PROGRAM 
JMP START CHANGE THE Rt11 UNIBUS ADDRESS 





SEQ 0045 
iiinhacleatiotinddl 


F 4 tis ey 
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CZRIDD.P11  06-yUN-79 08:32 STARTING ADDRESS(ES) SEQ 0044 
‘ 2240 SAFTER INITIAL START | 
| 
| 
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224) 
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STARTING ADDRESS(ES) 


300 NOT INHIBIT PROGRAMMABLE DRIVES 


S€Q 0045 









2242 000220 
2243 000220 000157 
2244 
2245 
2246 
2247 
2248 
2249 000224 
2250 000046 
2251 000046 005446 
2252 000052 


2253 000052 040000 
2254 000224 
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- 


-=220 
004106 JMP @#STARTS SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES 
-SBTTL ACTI1 HOOKS 


“-@@eeeeeeeteeeteretetereeerereererertrtreteneeeeeeerenereeeeeeteeteres 


“HOOKS REQUIRED BY ACTI1 
$SVPC=, 


P SAVE PC 
74 

SENDAD =:1)SET LOC.46 TO ADDRESS GF SENDAD IN .SEOP 
"wORD 40000 £:2)SET LOC.52 TO 40000 

* 2$SVPC +t RESTORE PC 


SEQ 0046 


| 
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001170 


001216 
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001100 
000000 


015 
000012 
000015 


000000 


000377 
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COMMON TAGS 


COMMON TAGS 


~ SBTTL 


ppeeeeeereereeererrereeerereerreteeeeereeeeeeteereeeNeeTeereTeTe 
*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


.=1100 
SCMTAG: 3;START OF COMMON TAGS 
SPASS: .WORD 0 >; CONTAINS PASS COUNT 
STSTNM: .BYTE 0 >; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE C >; CONTAINS ERROR FLAG 
SICNT: .WORD 0 : CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WwORD 0 : CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WwORD 0O >:CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 7: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 >: CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 >; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WwORD 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WwORD 0 >: CONTAINS ADDRESS OF ‘GOOD' DATA 
$BDADR: .WORD 0 ; CONTAINS ADDRESS OF ‘BAD' DATA 
$GDDAT: .WwORD 0 >;CONTAINS ‘GOOD’ DATA 
SBDDAT: .WwORD 0 :; CONTAINS "BAD DATA 
-wORD 0 : ;RESERVED--NOT TO BE USED 
-wORD 0 
S$AUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 
SINTAG: yo 4 >; INTERRUPT MODE INDICATOR 
WORD 
SwWR: -WORD DSWR ; ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODDISP ;;ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 3;1Ty KBD STATUS 
$TKB: 177562 :; TTY KBD BUFFER 
$TPS: 177564 si TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
$NULL -BYTE 0 >; CONTAINS NULL CHARACTER FOR FILLS 
S$FILLS: .BYTE 2 >; CONTAINS @# OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 sr INSERT FILL CHARS. AFTER A “LINE FEED" 
STPFLG: .BYTE 0 zr '"TERMINAL AVAILABLE’ FLAG (B11<07>=0=YES) 
$BELL ~ASCIZ <207><377><377> ;;CODE FOR BELL 
$QUES MoClt vt ;;QUESTION MARK 
$CRLF eASCJ1 <15> >; CARRIAGE RETURN 
$LF: eASCIZ = <12> srLINE FEED 
sp eearercereerererereererreeeeeretteeeraeHaeHeneeeteeeneeneeeTEee 
CR z 15 
LF s 12 
SRPADR: .WORD 176700 sFIRST ADDRESS OF RH11/RP04/5/6 REGISTERS 
SRPVEC: .WORD 254 >RPOG VECTOR ADDRESS 
$LKCSR: .WORD 172540 sADDR OF KWI1-P STATUS REGISTER 
$LKCSB: .WORD 172542 :ADDR OF KWl1-P COUNTER BUFFER 
$LPVEC: .WORD 104 sADDR OF KW11-P VECTOR 
$LKS: WORD 177546 sADDR OF KW1ll-L STATUS REGISTER 
$LLVEC: .WORD 100 sADDR OF KWll-L VECTOR 
PCLOCK: .WORD -=1 :'O* IF Kwll-P IS ON SYSTEM 
CLKFLG: .WORD 1 :'O* IF A CLOCK IS AVAILABLE : 
HZ: WORD 74 :74 (8) IF 60 H2 SYSTEM; 62 (8) IF 5O #2 SYSTEM 
STATIN: .WORD 0 >"TYPE STATISTICS* INDICATOR 
PACK WORD 0 :"w oo" COMMAND INDICATOR 


SEQ 0047 


[a 


=O DONG VEWN $0 COON VEFWN HO OONG MEWS 


oc, 
P11 


RP04/5/6 MLT=-DR LGC 
06-JUN-79 08:52 


090000 000000 
000000 000009 


001220 


001250 
001252 


001254 


001300 


001301 
001302 


001350 


001352 


000 


000632 


002740 


tee 000000 


000 
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000000 
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J 4 
03-JUL=79 10:41 PAGE S0 


) 
N TAGS SEQ 004 
DATE: -wORD 0,0,0,0,0 OPERATOR ENTERED DATE 
OPERID: .wORD 0,0,0,0 sOPERATOR ID 


DRIVE: .WORD 0 ;DRIVE # STORAGE: ERRORS 1-5 & 10 
ATTN: -WORD 0 ;ATTN REG STORAGE: ERRORS 1-5 & 10 


UNIT: ~WORD 0 sDRIVE # STORAGE FOR PRINTOUT 

MASK: . WORD 0 sERROR RETRY REGISTER MASK 

RETRY: .BYTE 0,0 sERROR RETRY LIMIT IN THE LOWER BYTE 
:RETRY COUNT IN THE UPPER BYTE 

FAIRNS: .WORD 3 ;MAXIMUM TIME IN QUEUE VALUE 

LSTAD: WORD 0 ;STORE LAST MEMORY ADDRESS HERE 

CHGADR: .WwORD 0 ;CHANGE RH11 UNIBUS ADDRESS FLAG 

CFLAG: .WORD 0 :"CONTROL C* FLAG 

BADSEC: .WORD 0 ;BAD SECTOR/TRACK FLAG 

HOUR: ~ WORD 0 ;HOUR COUNT STORED HERE (MAXIMUM = 999.) 

MINUTE: .WORD 0 sMINUTE'S COUNT STORED HERE 

SECOND: .WORD 0 :SECOND'S COUNT STORED HERE 

SIXTEE: .WORD 6 : TIMER ROUTINE COUNTER (FOR ONE SECOND) 

ZROIND: .WORD -1 :ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 

FRSTER: .BYTE 0 :DATA COMPARE ERROR FLAG 


:1f > 0, PROCESSING "DCKER' OR CAN'T MATCH PATTERN 
s1F < 0, MISCOMPARSION FOUND 

sMISCOMPARSION OR CAN'T MATCH PATTERN FLAG 

s1F < 0, ERROR IN BUFFER 

> SAVE R1 HERE 

:SAVE RS HERE 


SAVER1: .WORD 
SAVERS: .WORD 


ERCTR: .WORD ;NUMBER OF ERRORS 

LIMIT: WORD ;DISPLAY LIMIT 

CMCNT: .WORD ;WORD COUNT 

CMCYL: .WORD ; CYLINDER ADDRESS 

CMSEC: .BYTE ; SECTOR ADDRESS 

CMTRK: .BYTE ; TRACK ADDRESS 

ECBIT: .WORD ERROR BURST BIT OFFSET 

ECSEC: .WORD ERROR BURST WORD OFFSET (RELATIVE TO SECTOR) 
ECMSKO: .WORD ;CORRECTION MASK FOR FIRST ERROR WORD 
ECMSK1: .WORD ;CORRECLION MASK FOR SECOND ERROR WORD 
ECWRD: .WORD ;LOCATION OF FIRST ERROR WORD 

ECGD: - WORD GOOD DATA, FIRST WORD 


;BAD DATA, FIRST WORD 
;LOCATION OF SECOND ERROR WORD 
;GOOD DATA, SECOND WORD 

;BAD DATA, SECOND WORD 


ECBADO: .WORD 
ECWRD1: .WORD 
ECGD1: .WORD 
ECBAD1: .WORD 


fF —-MODCVDOOCOCOCVOCCOCCCCCCOCOCoO oO 


SECLMT: .WORD cP sSECTOR ADDRESS LIMIT 
TRKLMT: . WORD 8. : TRACK ADDRESS LIMIT 
CYLIMT: .WORD 10. sCYLINDER ADDRESS LIMIT FOR RPO4/5'S 


7 (CHANGED TO 814. FOR RPO6) 


so eerererreererrerererresereseseeaeerereetaeneseeaeeeHeeseeseTes 


-SBTTL COMMON PARAMETERS 


gs eeeeevereereceeeeseereereceaseeeseeeNeesaresseRgeeeeseNeseerseey 


PROGRAM USES THESE PARAMETERS TO DETERMINE REGULAR END OF PASS 
FNDCN: .WORD 002740 31.875x10%8 WORDS (10) (3x10*9 BITS} 
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001354 


001362 
001364 
001366 
001370 


001372 
001400 
001402 
001404 


001406 
001410 


001414 
001416 


001420 


001422 


001424 


091426 


001430 


06-JUN-79 08: 


005455 
143300 
000055 
120274 


000005 


000000 
000000 
000001 
000000 


000144 
000005 


000004 
000001 


000000 


000003 


000001 


000001 


000001 


000000 
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COMMON PARAMETERS 


. WORD 

ENDSK: .WORD 
WORD 
;PROGRAM USES 
QVCON: .WORD 
WORD 

QVSEK: .WORD 
RD 


005455 
143300 
55 


THESE PARAMETERS TH DETERMINE Q.V. END OF PASS 
120274 + 


7 
134330 
5 


K 4 
PAGE 51 


+ K 10°6 SEEKS (LSW) 


= 37x10*7 WORDS (10) 
13.5 x 10*5S SEEKS <10) 


oW iM 
; THE NUMBERS TO DETERMINE END OF PASS ARE LOADED IN HERE BY THE PROGRAM. 
THE FIRST TIME THROUGH, THE Qv PARAMETERS ARE USED, AFTER THAT THE 


;REGULAR PARAMETERS ARE USED. 
ENDCON: 


ENDSEK: 


PASCNT: 


MAXDL: 


MAXER: 


INTRVL: 


CMPLMT: 
FORMAT: 


WCSEL: 


RATIO: 


AUTOCK: 


NOTPRI: 


ENDET: 


~W 
- WORD 
. WORD 


. WORD 
- WORD 


. WORD 


ORD 


. WORD 
- WORD 


«WORD 
«WORD 


- WORD 


. WORD 


. WORD 


«WORD 


«WORD 


oo°o°o 


o— 


;NUMBER OF PASSES TO END OF TEST 

>MAXIMUM DATA TRANFER SIZE IN WORDS 

(FILLED BY PROGRAM AT STARTUP S BY OPERATOR 

[DURING PARAMETER ENTRY DIALOG.) 

;MAXIMUM ERRORS = 100(10) 

sFIRST WORD 1S THE PERFORMANCE TYPEOUT INTERVAL 

(IN MINUTES). SECOND WORD 1S THE INTERVAL 

COUNTER 
:COUNTER. UPPER BYTE IS VALUE. 
;NUMBER OF COMPARE ERRORS TYPED OUT 
:1F NOT EQ 0, ALLOW WRITE HEADER & DATA CRDERS 
:1F EQ 0, DO NOT ALLOW WRITE HEADER & DATA ORDERS 
:1F EQ TO 0, GENERATE A RANDOM WORD COUNT 
; FOR THE OPERATION. 

;1F NOT EQ TO 0, USE THE VALUE iN ‘MAXDL* FOR 
; THE WORD COUNT 
sREAD/WRITE RATIO CRANGE 0 = 73 
- 0/8 (READ/WRITE) 
| 
| 


om Aenea’ 
eeeersees6 
ae F 
~ 
> 


i wot EQ 0, DO AN APPROPRITE WRITE 
CHECK AFTER EACH WRITE ORDER. 
:1F €Q 0, SELECT WRITE CHECK ORDERS 
; RANDOMLY. 
:1F €Q 1, DO NOT PRINT DATA ERROR MESSAGES 
ASSOCIATED WITH OPERATOR SPECIFIED 
; BAD PACK AREAS. 
uF wot te 8 0, wae ERROR MESSAGES RELATING TO 
: H 
:1F NOT EQ 6. END OF PASS DETERMINED 
: BY THE "WORDS READ’ COUNT 
“1F £0 0, END OF PASS DETERMINED 
> BY THE SEEK COUNT. 


Be Se Bs Be Be Be Be Be Be Be 


*@@enereeteeeeeereeeeeeeettaeteeeeereeeneeeeeeeeeeteeeeeeeeteneeeetet 
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001432 
001434 


001436 


001440 
001446 
001454 


001462 


001464 
001472 
001500 


001506 
001514 
001522 


001530 
001536 
001544 


001552 
001560 
001566 


001574 
001602 
001610 


001616 
001620 
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000010 
000005 


000404 


000000 
000000 
000000 


000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


900000 
000000 
000000 


C00000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 


000000 
000000 


000000 
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000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 
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COMMON PARAMETERS SEG 0050 


-SBTTL VALUES FOR FIRST OPERATION 


sp eeeererererererrerererereerereeereneereneeneneneteneneetererete 


BEGPAT: 
BEGCOD: 


BEGSIZ: 


«WORD 
» WORD 


«WORD 


10 ;STARTING PATTERN CODE CRANGE 1 = 17 (OCTAL)] 
$ STARTING COMMAND CODE CRANGE 0 = 5) 

:0 = WRITE CHECK DATA ("WCKD') 

31 = WRITE CHECK HEADER & DATA (‘WCHKHD") 

32 = WRITE DATA (*WRIDAT*) 

‘3 WRITE as & an (*WRTHD*) 


READ DATA (‘RDDAT’ 

READ HEADER & DATA, ( *RDHD") 

404 STARTING RECORD SIZE CRANGE 4 = MAXMEM) 
;NOTE: THE SIZE MUST BE AT LEAST 4 IF 
;WRITE DATA OR READ DATA; THE SIZE MUST 
;BE AT LEAST 8 IF WRITE HEADER AND 
;DATA OR READ HEADER AND DATA, 
;1F THE SIZE 1S GREATER THAN 1 SECTOR, THE 
SIZE MUST ALLOW FOR OVERLAPPING 4 OR 8 
;WORDS INTO THE LAST SECTOR USED. 


awe 


py eteeteerererrererereretereereeeeereeranenaeeneeneeKKeneeeeeeee 


- SBTTL 


TABLES, 


CONSTANTS, AND VARIABLE LOCATIONS 


pp eeeeeeenereerereeerereeeretteneRereeeeeeKeeaReeAeeraeteneereeee 


ORDERQ: 


ASNLST: 


DUNIT: 


NEWUNT : 


AVAIL: 


WAIT: 


PARQ: 


BUF TBL: 


. WORD 


«WORD 
«WORD 


«WORD 


«WORD 


. WORD 


. WORD 


» WORD 
«WORD 


0,0,0,0,0,0,0,0,0 ;LIST OF DRIVES PERFORMING COMMANDS 


0 sA BIT SET 1S AN ASSIGNED DRIVE 

0.0,0,0,0,0,0,0,0 SADDRESSES OF DRIVES TO BE DEASSIGNED 
0,0,0,0.0.0,0.C,0 SADDRESSES OF NEWLY ASSIGNED DRIVES 
0.0,0,0,0,0,0,0,0 SLIST OF DRIVES WAITING FOR BUFFERS/PARAME TERS 
0.0.0,0,0,0,0,0,0 SLIST OF DRIVES WAITING FOR BUFFERS 
0.0,0,0.0,0,0,0.0 SLIST OF DRIVES WAITING FOR NEXT PARAMETERS 

: . ;BUFFER ALLOCATION TABLE ENTRY COUNT 


Mm 4 
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CZRIDD.P11 06-JUN-79 08:32 TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEQ 0051 
2479 001624 000000 000000 -wORD 0,0 
2480 001630 000000 000000 -wORD 0,0 
2481 001634 000 000000 -wORD 0,0 
2482 001640 000000 0000 -wORD 0,0 
24683 001644 000000 000000 -wORD 0,0 
2484 001650 000000 000000 «WORD 0,0 
2485 001654 000000 000000 -wORD 0,0 
2486 001660 000000 000000 -wORD 0,0 
2487 000000 000000 -wORD 0,0 
2488 001670 0000 000000 -wORD 0,0 
2489 001674 000000 000000 -wORD 0,0 
2490 001700 000000 000000 -WORD 0,0 
2491 17 000000 000000 «WORD 0,0 
2492 001710 000000 000000 -wORD 0,0 
2493 001714 000000 000000 -wORD 0,0 
2494 001720 000000 000000 -wORD 0,0 
2495 001724 000000 000000 -WORD 0,0 
2496 001730 000000 000000 -wORD 0,0 
odd 001734 000000 000000 -wORD 0,0 
2499 001740 042036 BLKADR: .WwORD DRIVEO s ADDRESS OF THE BLOCK FOR DRIVE 9 
2500 001742 042342 . WORD DRIVE1 sADDRESS OF THE BLOCK FOR DRIVE 1 
2501 001744 042646 ~WORD DRIVE2 sADDRESS OF THE BLOCK FOR DRIVE 2 
2502 001746 043152 ~ WORD DRIVES zs ADDRESS OF THE BLOCK FOR DRIVE 3 
2503 001750 043456 ~ WORD DRIVES sADDRESS OF THE BLOCK FOR DRIVE 4 
2504 001752 043762 ~WORD DRIVES sADDRESS OF THE BLOCK FOR DRIVE 5 
2505 001754 044266 ~ WORD DRIVES sADDRESS OF THE BLOCK FOR DRIVE 6 
$308 001756 044572 ~WORD DRIVE? s ADDRESS OF THE BLOCK FOR DRIVE 7 
2508 001760 151 COMTBL: .BYTE wWCKD sWRITE CHECK DATA 
2509 001761 153 -BYTE  wCKHD sWRITE CHECK HEADER AND DATA 
2510 001762 161 -BYTE  WRIDAT sWRITE DATA 
2511 001763 163 -BYTE WRTHD ;WRITE HEADER AND DATA 
2512 001764 171 -BYTE RDDAT READ DATA 
Saiz 601765 173 -BYTE  RDHD ;READ HEADER AND DATA 
4 
2515 001766 002 OPTBL: .BYTE 2 ; UNLOAD 
2516 001767 004 BYTE 4 3; SEEK 
2517 001770 006 -BYTE 6 RECAL 
2518 001771 010 BYTE 10 sDRIVE CLEAR 
2519 001772 012 -BYTE 12 RELEASE 
2520 001773 014 .BYTE 14 s OFFSET 
2521 001774 016 -BYTE 16 ;RETURN TO CENTERLINE 
2522 001775 620 -BYTE 20 READIN PRESET 
2523 001776 022 -BYTE 22 :PACK ACKNOWLEDGE 
2524 001777 030 -BYTE 30 SEARCH 
2525 002000 050 -BYTE 50 sWRITE CHECK DATA 
2526 002001 052 -BYTE 52 WRITE one Ce HEADER AND DATA 
2527 002002 060 .BYTE 60 sWRITE DATA 
2528 002003 062 -BYTE 62 : sWRITE — AND DATA 
2529 002004 070 -BYTE 70 READ DAT 
2530 002005 072 .BYTE 72 READ VEADER AND DATA 
set 002006 377 .BYTE 1 : TERMINATOR 
2 


25 
2535 002010 -EVEN 
255 


No 
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2535 002010 047125 047514 042101 MNTBL: .ASCIZ /UNLOAD / 
2536 002016 000040 
2537 002020 042523 045505 020040 «ASCIZ /SEEK / 
2538 002026 600040 
2539 002030 042522 040503 020114 sASCIZ /RECAL / 
2540 002036 000040 
2541 002060 051106 041526 051114 eASCIZ /DRVCLR / 
2542 002066 000040 
25435 002050 042522 051514 0620105 wASCIZ /RELSE / 
2544 002056 000040 
2545 002060 043117 051506 052105 eASCIZ /OFFSET / 
2546 002066 000040 
2547 002070 052122 020103 020040 eASCIZ = /RTC / 
2548 002076 000040 
2549 002100 042522 042101 047111 sASCIZ = /READIN / 
2550 002106 000040 
2551 002110 040520 045503 020040 eASCIZ = /PACK / 
2552 002116 000040 
2553 002120 042523 051101 044103 eASCIZ = /SEARCH / 
2554 002126 000040 
2555 002150 041527 042113 020040 eASCIZ /WCKD = / 
2556 002136 000040 
2557 002140 041527 044113 020104 eASCIZ = /WCKHD / 
2558 002146 000040 
2559 002150 051127 042124 052101 eASCIZ =/WRIDAT / 
2560 002156 000040 
2561 002160 051127 044124 020104 eASCIZ = /WRTHD / 
2562 002166 000040 
2563 002170 042122 040504 920124 -ASCIZ /RDDAT / 
2564 002176 000040 
2565 002200 042122 042110 020040 eASCIZ /RDHD = / 
2566 002206 000040 
2567 002210 047516 042516 020040 -ASCIZ) /NONE §/ 
toe 002216 000040 
2570 002220 000 OFFCOD: .BYTE 0 sOFFSET CODE TABLE 
2571 002221 010 -BYTE 10 :#200 U INCHES 
2572 002222 210 -BYTE 210 :7200 U INCHES 
2573 002225 020 -BYTE 20 :*400 U INCHES 
2574 002224 220 -BYTE 220 37400 U INCHES 
2575 002225 030 -BYTE 30 :+600 U INCHES 
2576 002226 230 000 -BYTE 230,0 37600 U INCHES, TERMINATOR 
2577 002230 020 BYTE 20 :*400 U INCHES * 
2578 002231 220 BYTE 220 27400 U INCHES 
2579 002232 040 BYTE 40 :*800 U INCHES 
2580 002235 240 -BYTE 240 7“ U INCHES 
2581 002234 060 -BYTE 60 :+1200 U INCHES 
2582 002235 260 000 -BYTE  260,0 271200 U INCHES, TERMINATOR 
Seer 002240 -EVEN 
2585 002240 002274 OFMTBL: .WORD OFMSGO 71ST OFFSET MESSAGE 
2586 002242 002327 -WORD OFMSG! s2ND OFFSET MESSAGE 
2587 002244 002363 -WORD OFMSG2 : 35RD OFFSET MESSAGE 
2588 002246 002417 -WORD OFMSG3 24TH OFFSET MESSAGE 
2589 002250 002453 -WORD OFMSG4 :5TH OFFSET MESSAGE 
2590 002252 002507 -WORD OFMSGS 261TH OFFSET MESSAGE 
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002272 
002274 


002674 
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002543 


002724 
043101 


042524 
051124 


020124 
052105 


MACY11 30A(1052) 
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ee 
PAGE 55 


TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEQ 0053 
-WORD OFMSG6 ; 7TH OFFSET MESSAGE 
-wORD OFMSGO 71ST OFFSET MESSAGE 
-WORD OFMSG3 34TH OFFSET MESSAGE 
~-WORD OFMSG4 ;STH OFFSET MESSAGE 
«WORD OFMSG7 ;81H OFFSET MESSAGE 
-WORD OFMSG8 9TH OFFSET MESSAGE 
-WORD CFMSG9 ; 10TH OFFSET MESSAGE 
-WORD  OFMSGA 11TH OFFSET MESSAGE 
OFMSGO: .ASCIZ /AFTER RETRY. WITHOUT OFFSET/ 


OFMSG1: 


OFMSG2: 


OFMSG3: 


OFMSG4: 


OF MSGS: 


OFMSG6: 


OFMSG7: 


OFMSG8: 


OF MSG9: 


eASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


eASCI2 


eASCIZ 


~ASCIZ 


-ASCIZ 


eASCIZ 


/Al OFFSET 


/AT OFFSET 


/AT OFFSET 


/AT OFFSET 


/AT OFFSET 


/AT OFFSET 


ee 


/AT OFFSET 


/AY OFFSET 


7AT OFFSET 


+200 MICRO-INCHES/ 


-200 MICRO-INCHES/ 


+400 MICRO-INCHES/ 


-400 MICRO-INCHES/ 


+600 MICRO-INCHES/ 


-600 MICRO-INCHES/ 


+800 MICRO-INCHES/ 


-800 M!ICRO-INCHES/ 


#1200 MICRO=INCHES/ 


. 3 
CZRJDDO, RPOG/5/6 MLT-DR LGC MACY11 tN fle O3-JUL-79 10:41 PAGE 56 
CZRIOD.P11 06-JUN-79 08:32 TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEQ 0054 


2647 002702 031061 030060 046440 
2648 002710 041511 047522 044455 


2650 002724 052101 047440 043106 OFMSGA: .ASCIZ /AT OFFSET =1200 MICRO-INCHES/ 


26535 002746 051103 026517 047111 
2654 002754 0441035 051505 000 


2656 002762 -EVEN 

2657 

2658 sp ereneereteerererererertererererererererenenerenentoteneneeetene 
2659 

2660 -SBTTL DATA PATTERNS 

2661 

2662 soe eeererrerereererereeresenererenentenenenereneneneneeeeeeeeeese 
2665 

2664 002762 000000 STNDAT: .WORD 0 ;STANDARD DATA PATTERN POINTER TABLE 
2665 002764 003066 ~WORD = DATAI 

2666 002766 003126 -WORD DATA1+40 

2667 002770 003166 -WORD DATA1+100 

2668 002772 003226 -WORD DATA1+140 

2669 002774 003266 «WORD DATA1+200 

2670 002776 003326 «WORD DATA1+#+240 

2671 003000 003566 -WORD DATA1+300 
2672 003002 003426 «WORD DATA1+*340 
2673 003004 003466 «WORD DATA1+400 
2674 003006 003526 -WORD DATA1+440 

2675 003010 003566 ~-WORD DATA1+500 

2676 003012 003626 WORD DATA1+540 
2677 003014 003666 «WORD DATA1+600 
2678 003016 003726 -WORD DATA1+640 
2679 003020 003766 «WORD DATA1+700 
2680 003022 003026 -WORD DATAO ; ZEROES 
soa) 003024 003730 WORD DATA1+*642 ; ONES 

6 
2683 003026 000000 DATAO: .WORD 0 ;DUMMY DATA PATTERN 
2684 003030 000000 «WORD 0 
2685 003032 000000 -WORD 0 
2686 003034 000000 -WORD 0 

2687 003036 000000 -WORD 0 

2688 003040 000000 ~-WORD 0 

2689 003042 000000 -WORD 0 

2690 003044 000000 -WORD 0 

2691 003046 000000 -WORD 0 

2692 003050 000000 -WORD 0 

2693 003052 090000 -WwORD 0 

2694 003054 0090000 . «WORD 0 

2695 003056 000000 -wORD 0 

2696 003060 090000 -wORD 0 

26097 003062 000000 -WORD 0 

song 003064 000000 -WORD 0 

6 

2700 003066 000001 DATA1T: .WORD Q00001 ; STANDARD PATTERN 1 

2701 003070 000003 -wORD 000003 

i 


2702 003072 000007 -WORD 000007 


Pn 


—_——————__—_--_, 


dD 5 
CZRIDDO, RPOS/5/6 MLT-DR LGC MACY11 SOA(1052) O35-JUL=79 10:41 PAGE 57 


2758 003244 075567 WORD 073567 





CZRIDD.P11 06-JUN-79 08:32 DATA PATTERNS SEQ 0055 
2703 003074 000017 -WwORD 000017 
2704 003076 000037 ~-wORD 000037 
2705 003100 000077 -wORD 000077 
003102 0177 ~WORD 000177 
2707 003104 000377 -wORD 000377 
2708 003106 000777 -WORD 000777 
2709 003110 001777 WORD (001777 
2710 003112 003777 «WORD 003777 
2711 003114 007777 WORD 007777 
2712 003116 017777 ~WORD 017777 
2713 003120 037777 WORD 037777 
2714 003122 077777 WORD 077777 
sie 003124 177777 «WORD 177777 
2717 003126 177776 «WORD 177776 ;STANDARD PATTERN 2 
2718 003130 177774 -WORD 177774 
2719 003132 177770 «WORD 177770 
2720 003134 177760 -WORD 177760 
2721 003136 177740 «WORD 177740 
2722 003140 177700 -WORD 177700 
2723 003142 177600 -WORD 177600 
2724 003144 177400 «WORD 177400 
2725 003146 177000 «WORD 177000 
2726 003150 176000 -WORD 176000 
2727 003152 174000 «WORD 174000 
2728 003154 170000 -wORD 170000 
2729 003156 160000 -WORD 160000 
2730 003160 140000 -WORD 140000 
2731 003162 100000 -wORD 100000 
oie 003164 000000 -wORD 000000 
2734 003166 000000 -WORD 000000 ;STANDARD PATTERN 3 
2735 003170 000000 -WORD 000000 
2736 003172 000000 -wORD 000000 
2737 003174 177777 «WORD 177777 
2738 003176 177777 WORD = 177777 
2739 003200 177777 WORD 177777 
2740 003202 060000 -wORD 000000 
2741 003204 000000 -wORD 000000 
2742 003206 177777 WORD 177777 
2743 003210 177777 WORD 177777 
2744 003212 000000 «WORD 000000 
2745 003214 177777 «WORD 177777 
2746 003216 000000 -wORD 600000 
2747 003220 177777 WORD = 177777 
2748 003222 000000 -wORD 000000 
ci 003224 177777 WORD 177777 
2751 003226 000000 -WORD Q00000 ;STANDARD PATTERN 4 
2752 003230 010421 WORD 010421 
2753 003232 021042 ~WORD 021042 
2754 003234 031463 -WORD 031465 | 
2755 003236 042104 «WORD 042104 
2756 003240 052525 ~WORD 052525 
2757 003242 063146 -WORD 0635146 
i 
| 
| 
} 
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007417 
170360 


026455 
5 


STANDARD PATTERN 5 


;STANDARD PATTERN § 


STANDARD PATTERN 7 





SEQ 0056 


ee} 


on 


,. | 
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CZRIOD.P11 06-JUN-79 08:32 DATA PATTERNS SEQ 0057 
2815 003420 151322 -WORD 151322 
2816 003422 026455 -WORD 026455 
sale 003424 151322 -wORD 151322 
2819 003426 165555 «WORD 165555 ;STANDARD PATTERN 8 
2820 003430 133333 «WORD 133333 
2821 003432 165555 -WORD 165555 
2822 003434 133333 WORD 133333 
2823 003436 165555 -WORD 165555 
2824 003440 133335 -WORD 133333 
2825 003442 165555 -WORD 165555 
2826 003444 133333 ~-WORD 133333 
2827 003446 165555 WORD 165555 
2828 003450 133333 «WORD 133333 
2829 003452 165555 «WORD 165555 
2830 003454 133333 -WORD 133333 
2831 003456 165555 -WORD 165555 
2832 003460 133333 «WORD 133333 
2833 003462 165555 WORD 165555 
te 003464 133333 -WORD 133333 
2836 003466 000001 -WORD Q00001 ; STANDARD PATTERN 9 
2837 003470 000002 -WORD 000002 
2838 003472 000004 -WORD 000004 
2839 003474 000010 -WORD 000010 
2840 003476 000020 -WORD 000020 
2841 003500 000040 -WORD 000040 
2842 003502 000100 -WwORD 000100 
2843 003504 000200 -WORD 000200 
2844 003506 000400 -WORD 000400 
2845 003510 001000 -WORD 001000 
2846 003512 002000 WORD 002000 
2847 003514 004000 -WORD 004000 
2848 003516 010000 -WORD 010000 
2849 003520 020000 -WORD 020000 
2850 003522 040000 -WORD 040000 
4 003524 100000 -WORD 100000 
2853 003526 177776 «WORD 177776 ;STANDARD PATTERN 10 
2854 003530 177775 «WORD = 177775 
2855 003532 177773 -WORD 177773 
2856 003534 177767 -WORD 177767 
2857 003536 177757 WORD 177757 
2858 003540 177737 «WORD 177737 
2859 003542 177677 -WORD 177677 
28600 003544 177577 “WORD = 177577 
2861 003546 177377 WORD 177377 
2862 003550 176777 WORD 176777 
2863 003552 175777 WORD 175777 
2864 003554 173777 WORD 173777 
2865 003556 167777 «WORD 167777 
2866 003560 157777 «WORD = 157777 
2867 003562 137777 WORD 13777? 
ores 003564 077777 «WORD =077777 

6 
2870 003566 172666 «WORD 172666 = ;STANDARD PATTERN 11 
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. WORD 
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:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 


s*LOCATI 


SERRTB: 
sERROR 1 


;ERROR 1 


ERROR 2 


sERROR 3 


SERROR 4 


ERROR 5 


ERROR 6 


ON SITEMB. 


if $11 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EMS 
DHe 
DT2 
0 


EM6 
DHO6 


THIS NUMBER INDICATES WHICH ITEM IN THE TABLE - PERTINENT. 


EMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC 


7;POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
7;POINTS TO THE DATA 

3:POINTS TO THE DATA FORMAT 


sRH11 INTERRUPT OCCURRED (RPAS = 0) 


; UNEXPECTED ATTENTION OCCURRED 


sMASSBUS PARITY ERROR (MCPE=1) 


>MASSBUS PARITY ERROR (PAR=1) 


ADDRESS PLUG BIT CHANGED 


:RH11 DIDN'T RESPOND TO ADDRESSING 
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C2RIDD.P11 06-JUN-79 08:32 ERROR POINTER TABLE 
3011 004102 050324 D16 
3012 004104 000000 0 
3015 
3014 s,eeeeerererererreeereerererererereresenteneneeeeeneneteneeeerere 
3015 
sie -SBTTL SETUP AND INITIALIZATION ROUTINE 
3018 : START ADDRESS = 200 
$555 3 ADDRESS TO CHANGE RH11 UNIBUS ADDRESS = 204 
3021 py ettetererereerrereteerererterereeneeeteeeenetenenereneeneeereree 
3022 
3023 004106 012737 000001 034264 START3: MOV ai, TSTPGM ;ENABLE PROGRAMMABLE DRIVES 
3024 004114 005037 001260 CLR CHGADR “CLEAR THE RH11 ADDRESS CHANGE FLAG 
3025 004120 000413 BR START2 
3026 004122 012737 177777 001260 START: MOV #-1,CHGADR SET RH11 ADDRESS CHANGE FLAG 
3027 004130 012737 000001 034264 MOV wi, TSTPGM ;ENABLE PROGRAMMABLE DRIVES 
3028 004136 000404 BR START2 ; START THE PROGRAM 
3029 004140 005037 001260 START1: CLR CHGADR ;CLEAR THE RH11 ADDRESS CHANGE FLAG 
3030 004144 005037 934264 CLR TSTPGM ;DISABLE PROGRAMMABLE DRIVES 
3031 004150 000005 START2: RESET ;CLEAR THE BUS 
3032 004152 013737 001352 001372 MOV ENDCN,ENDCON ;SET UP FOR NORMAL PASS 
3033 0064169 013737 001354 001374 MOV ENDCN+2 ,ENDCON*2 
3034 004166 013737 001356 001376 MOV ENDSK ,ENDSEK 
3035 004174 013737 001360 001400 MOV ENDSK+2,ENDSEK+2 
3036 004202 SETUP: 
3037 ~SBTTL INITIALIZE THE COMMON TAGS 
3038 7;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
3039 004202 012706 001100 MOV #SCMTAG,RO ;sFIRST LOCATION TO BE CLEARED 
3040 004206 005026 CLR (R6)+ >;CLEAR MEMORY LOCATION 
3041 004210 022706 001140 CMP MSWR,RE ;; DONE? 
3042 004214 001374 BNE -6 ;;LOOP BACK IF NO 
30435 004216 012706 001100 MOV WSTACK,SP >;SETUP THE STACK POINTER 
3044 ss INITIALIZE A FEW VECTORS 
3045 004222 012737 030626 000030 MOV WSERROR ,AMEMTVEC aS EMT VECTOR FOR ERROR ROUTINE 
3046 004230 012737 000340 000032 MOV #340, aMEMTVEC+2 sSLEVEL 7 
3047 004236 012737 033174 000034 MOV #STRAP aw TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
3048 004244 012737 900340 000036 MOV #340 ,aM#TRAPVEC+2;LEVEL 7 
3049 004252 012737 176543 032560 MOV #176543, $H1NUM : PRIME THE RANDOM NUMBER GENERATOR 
3050 004260 012737 123456 032562 MOV #123456,$LONUM ;;BOTH HIGH AND LOW WORDS 
3051 ~ 7:S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3052 ;;EQUAL 10 A ‘‘=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
3053 094266 013746 000004 MOV Q@MERRVEC,-(SP) ;;SAVE ERROR VECTOR 
3054 004272 012737 004326 000004 MOV MO4$,QMERRVEC ;;SET UP ERROR VECTOR 
3055 004300 012737 177570 001140 MOV #DSWR,SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
3056 004306 012737 177570 001142 MOV MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
3057 004314 022777 177777 174616 CMP #-1,aSWR >; TRY TO REFERENCE HARDWARE SWR 
3058 004322 001012 : BNE 66% ;;BRANCH IF NO TIMEQUT TRAP OCCURRED 
3059 7:AND THE HARDWARE SWR IS NOT = =1 
3060 004324 000403 BR 65% 7:BRANCH IF NO TIMEOUT 
3061 004326 012716 004334 64$: MOV #65$, (SP) ;;SET UP FOR TRAP RETURN 
3062 004332 000002 RT] 
3063 004334 012737 000176 001140 65$: MOV MSWREG, SWR ::POINT TO SOFTWARE Sw 
3064 004342 012737 000174 001142 MOV WDISPREG,DISPLAY 
3065 004350 012637 000004 66%: MOV (SP)*,Q@MERRVEC ;;RESTORE ERROR VECTOR 





oe 
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CZRIDD.P11 06-JUN-79 08:32 INITIALIZE THE COMMON TAGS SEQ 0062 
3067 004354 012737 000240 000032 MOV #240, ,QMEMTVEC+2 ; CHANGE EMT PRIORITY TO 5 
3068 004362 012737 000240 000036 MOV #240, ,a#TRAPVEC*+2 ;CHANGE TRAP PRIORITY TO 5 
3069 004370 005227 177777 INC #-1 sFIRST START ? 
3070 004374 001030 BNE i$ ;BR IF NOT 
3071 004376 023737 000042 000046 CMP a#42 ,a#46 ;ACT11 AUTOMATIC MODE? 
3072 004404 001004 BNE 4$ BRANCH IF NO 
3073 004406 012737 000001 034264 MOV wi, TSTPGM ;ENABLE PROGRAMMABLE DRIVES 
3074 004414 000402 BR 5$ 
3075 004416 104401 055652 4%: TYPE -TITLE :TYPE THE PROGRAM'S TITLE 
3076 004422 005737 034264 5$: TST TSTPGM ;CAN WE USE PROGRAMMABLE DRIVES? 
3077 004426 001402 BEQ 6% ;BRANCH IF NO 
3078 004430 104401 052326 TYPE USE ; TYPE MSG 
3079 004434 6$: 
3080 004434 005737 000042 TST 42 ;AUTO ACCEPT OR CHAIN MODE ? 
3081 004440 001006 BNE 1$ ;BR IF EITHER 
3082 004442 122737 000011 000041 CMPB #11,41 LOADED FROM AN RPO04/5/6 ? 
3083 004450 001002 BNE 1$ ;BR IF NOT 
3084 004452 104401 055703 TYPE , LOADRV | edie THE OPERATOR ON HOW TO TEST DRIVE 0 
3085 004456 004737 030146 1$: JSR PC, STKINT [TURN ON THE KEYBOARD INTERRUPT 
3086 ~SBTTL GET VALUE FOR SOFTWARE sbi tc REGISTER 
3087 004462 005737 000042 TST a#4e ARE WE RUNNING UNDER XXDP/ACT? 
3088 004466 001006 BNE 67% :BRANCH IF YES 
3089 004470 023727 001140 000176 CMP SWR ,#SWREG fa SWITCH REG SELECTED? 
3090 004476 001005 BNE 68% ;;BRANCH IF NO 
3091 004500 104406 GTSWR 7:GET SOFT-SWR SETTINGS 
3092 004502 000403 BR 68% 
3093 004505 112737 000001 001134 €é7$: MOVB #1,$AUTOB 7;SET AUTO-MODE INDICATOR 
3094 004532 68$: 
3095 004512 005227 177777 INC #-1 sFIRST START ? 
3096 004516 001015 BNE 2$ ;BR IF NOT 
3097 004520 004737 055242 JSR PC ,BUSADR ; CHECK RH11 BUS ADDRESS 
3098 004524 013737 001170 033430 MOV SRPADR,RPADR :RH11 ADDRESS 
3099 004532 013737 001172 033432 MOV SRPVEC ,RPVEC ;RH11 VECTOR ADDRESS 
3100 004540 005737 000042 TST aa42 :ACT=11 AUTO OR CHAIN MODE? 
3101 004544 001002 BNE 2$ ;BRANCH IF EITHER, SKIP 
3102 ;DATE & OPERATOR ID INPUT 
3103 004546 004737 054756 JSR PC ,OPRDAT ;GET THE DATE AND OPERATOR ID 
3104 004552 005037 001214 2s: CLR STATIN ;CLEAR PERFORMANCE SUMMARY TYPEQUT FLAG 
3105 004556 012705 001440 MOV #WORDERQ,RS START OF AREA TO CLEAR 
3106 004562 005025 3$: CLR (R5)+ 
3107 004564 022705 001740 CMP #BLKADR,R5 ;LOOK FOR END OF CLEAR AREA 
3108 004570 001374 BNE 3$ ;BR IF NOT FINISHED 
3109 004572 012706 001100 MOV + apa SP ;SETUP THE STACK POINTER 
3110 004576 005037 177776 CLR ;CLEAR THE PROCESSOR STATUS WORD 
3111 0046602 013737 001212 001274 MOV “i, SIXTEE :1/60 TH OR 1/50 TH SECOND COUNTER VALUE 
3112 004610 005037 001266 CLR HOUR ;CLEAR THE HOUR'S COUNTER 
3113 004614 005037 001270 CLR MINUTE CLEAR THE MINUTE'S COUNTER 
3114 004620 005037 001272 CLR SECOND ;CLEAR THE SECOND'S COUNTER 
3115 004624 005037 001412 CLR INTRVL#2 :CLEAR INTERVAL COUNTER 
3116 004630 005037 001216 CLR PACK ;CLEAR THE 'R' OR ‘Ww’ COMMAND FLAG 
3117 004634 005037 001262 CLR CFLAG CLEAR THE "CONTROL C‘ FLAG 
Abs 004640 042737 170000 001406 BIC #170000,MAXER ;MAKE SURE ERROR LIMITS ARE NOT TOO HIGH 
As ROUTINE TO DETERMINE BUFFER FREA SIZE 
121 
3122 004646 005227 177777 SIZ2MEM: INC a#-) ;SEE IF TIME TO SIZE MEMORY 
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CZRJOD.P11 06-JUN-79 08:32 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0063 
3123 004652 001005 ' BNE 1$ BR IF NOT 
3124 004654 004737 055136 JSR PC,SSIZE :SEE HOW MUCH MEMORY ON SYSTEM 
3125 004660 013737 055232 001256 MOV SLSTAD, LSTAD ;SAVE THE LAST ADDRESS 
3126 004666 012737 000001 001616 18: MOV #1, BUF TBL :LOAD NUMBER OF BUFFERS 
3127 004674 012737 054756 001620 MOV #ENDPGM, BUFTBL*2 ;STARTING ADDRESS OF BUFFER 
3128 004702 013737 001256 001622 MOV LSTAD, BUF TBL +4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 
3129 004710 162737 054756 001622 SUB #ENDPGM,BUFTBL*4 ;SUBTRACT PROGRAM SPACE 
3130 004716 000241 CLC ;CLEAR THE °C’ BIT 
3131 004720 006037 001622 ROR BUF TBL+4 > CONVERT TO WORD COU 
3132 004724 162737 000144 001622 $uB #100.,BUFTBL*4 ;SAVE RCOM FOR THE "ABS" LOADER 
3133 004732 023727 001256 100000 CMP LSTAD,#100000 ;16K ON THE SYSTEM ? 
3134 004740 103406 BLO 3$ :BR IF YES 
3135 004742 105737 000041 TSTB 41 :SEE WHO LOADED THE PROGRAM 
3136 004746 001403 BEQ 3% :BR If LOADED BY PAPER TAPE 
3137 004750 162737 002570 001622 $uB #1400.,BUFTBL*4 ;SUBTRACT ‘"XXDP* LOADER SIZE 
3138 004756 005737 001404 3$: TST MAXDL 7VALUE IN “MAXDL* ? 
3139 004762 001012 BNE 4% ;BR IF VALUE IS 
3140 006764 012737 013534 001404 MOV #5980. ,MAXDL sASSUME FULL TRACK + 1 SEC MAXIMUM 
3141 006772 023737 001404 001622 CMP MAXDL,BUFTBL*4 ;1S THAT TOO LARGE ? 
3142 005000 103403 BLO 4% BR IF NOT 
3143 005002 013737 001622 001404 MOV BUFTBL+4,MAXDL ;USE MAX AVAIL MEMORY AS MAX BUFFER SIZE 
Ape 005010 013737 001622 053746 4$: MOV BUFTBL+4,PARLST#2 ;VALUE FOR THE PARAMETER TABLE 
tee SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 
4 
3148 005016 005737 000042 LKPAR: TST a#42 :"XXDP" CHAIN MODE OR ‘ACT11° OPERATION ? 
3149 005022 001022 BNE SETVEC BR IF YES 
3150 005024 104401 054042 TYPE ,ASKPAR ASK FOR PARMETERS 
3151 005030 104411 RDLIN READ THE ENTRY 
3152 005032 012605 MOV (SP)+,R5 sADDRESS OF ENTRY TO R5 
3153 005034 122715 000131 CMPB @'y,(R5) sWAS ENTRY A ‘Y" (YES) 
He: 005040 001013 BNE SETVEC :BR IF NOT ‘Y' 
3156 005042 012703 053744 ENTPR: MOV #PARLST,R3 PARAMETER TABLE ADDRESS 
3157 005046 004737 026370 JSR PC,PARENT :GET THE PARAMETER ENTRY 
3158 005052 023727 001404 000004 CMP MAXDL,#4 :1S THE "MAXDL" VALUE OK ? 
3159 005060 103003 BHIS SETVEC <BR | Ze ie tS 
dey 005002 012737 000004 001404 MOV #4 ,MAXDL :SET "MAXDL’ TO THE MINIMUM VALUE 
6 
3162 DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
ne : THE PROGRAM WILL USE 
64 
3165 005070 004737 022500 SETVEC: JSR PC,CKCLK :START THE CLOCK 
3166 005074 004737 033446 JSR PC,RPINIT s INITIALIZE THE RPO4/5/6 DRIVER 
3167 005100 012737 177777 033370 MOV #-1,SAVEFG :SET THE SAVE REGISTERS FLAG 
3168 005106 062727 177777 000000 ADD #-1,#0 :CHECK FOR FIRST START 
3169 005114 103004 BCC 11$ ‘BR IF FIRST START 
3170 005116 032777 000004 174014 BIT #SwO02,aSWR sTYPEOUT THE DRIVE STATUS TABLE ? 
3171 005124 001105 BNE 10$ “BR IF NOT 
3172 005126 012737 000340 177776 118: MOV #PR7,PS *SET PRIORITY TO 7 
3173 005134 005004 CLR R4 sDRIVE TABLE POINTER 
3174 005136 104401 001165 TYPE  SCRLF s CRLF 
3175 005142 104401 052634 TYPE ~OYSTAT s TYPE STATUS HEADING 
3176 005146 1$: 
3177 005146 010446 MOV R4,-(SP) >; SAVE R4& FOR TYPEOUT 
3178 sr TYPE DRIVE NUMBER 
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000137 


005737 
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004737 
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000010 
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000001 


052661 
000002 
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001165 
000010 
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100000 


23: 
3$: 


12$: 
4$: 


5$: 
6$: 


10$: 


a 5 
O03-JUL-79 10:41 PAG 


E 66 
VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 

TYPOS 3;G0 TYPE--OCTAL ASCII 

BYTE 2 s TYPE 2 DIGIT(S) 

-BYTE 0 7; SUPPRESS LEADING ZEROS 
TYPE ~LINGSP s SPACES 

TSTB DRVSTACR4) ; CHECK ak be My STATUS 
BMI 4% sBR IF UNSAFE 
BNE 5$ ;BR IF ONLINE 

TSTB DRVTYP(R4) sSEE IF OFFLINE NONE XISTENT 
BEQ 23 :BR If NONEXISTENT 
BPL 3$ ;BR IF OFFLINE 

TYPE ,NOTRP DRIVE NOT AN RPO4/5/6 
BR $ sCHECK NEXT DRIVE 

TYPE »NOTPRS sDRIVE NOT PRESENT 
BR 9$ sCHECK NEXT DRIVE 
B1TB #81103, DRVTYP(R4) sDRIVE PROGRAMMABLE? 
BEQ 12% ; BRANCH if NO 

TYPE »NOUSE ;PRINT MSG 

R 6$ sPRINT DRIVE TYPE 

TYPE /UNTOFF sDRIVE OFFLINE 

R 6$ sPRINT DRIVE TYPE 

TYPE ~NOTSAF ;DRIVE UNSAFE 
BR 6$ sPRINT DRIVE TYPE 

TYPE ~UNTON sDRIVE ONLINE 

TYPE LINSP + SPACES 
MOV sRPoce 8% ADDRESS OF RPO4 MESSAGE 
BITB #81700, DRVTYP(R4) sRPO4 ? 
BNE 7$ BR. IF YES 
MOV #RPOS,8$ ; ADDRESS OF RPOS MESSAGE 
BITB #BITOI, DRVTYP(RG) sRPOS ? 
BNE 7% 1? YES 
MOV #RPO6, 8S > ADDRESS OF RPO6 MESSAGE 
TYPE sTYPE THE DRIVE TYPE MESSAGE 
~ WORD 0 sMESSAGE ADDRESS HERE 

TYPE , SCRLF 3; CRLF 

INC RG s INCREMENT DRIVE NUMBER/TABLE POINTER 
CMP R4,#8. sFINISHED ? 
BNE 1$ ;BR IF NOT 

TYPE ,SCRLF 7 CRLF 

CLR PS :SET PRIORITY BACK TO ‘O° 
JMP MONTR sCHECK FOR ‘*XXDP* OR ‘ACT11° MONITOR 


SETUP IF ‘XXDP’ OR ‘ACT11" OPERATION 


MONTR: 


1$: 


42 
1$ 
PC ,ASGN2 
#-1 


2$ 
avs 


2% 
USTAD, - #100000 
»NOLOAD 


PC ,STKINT 
. INTDON 


7"XXDP* CHAIN MODE OR “ACT11*° AUTO ACCEPT 
;BR IF NEITHER 
; ASSIGN DRIVES 
sFIRST START ? 


:BR IF NOT 
i, FROM PAPER TAPE ? 


:BR IF YES 
>MORE THAN 16K ON THE SYSTEM ? 
:BR IF YES 

TELL THE OPERATOR THAT THE ‘XXDP* LOADER 
WILL BE OVERWRITTEN 

SINITIALIZE THE KEYBOARD INTERRUPT HANDLER 
;TYPE "INITIALIZE COMPLETE" 
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005426 


005462 


005606 


005610 
005614 





000137 


000137 


000733 


012703 
005002 


005610 


000042 
005610 


004140 


000010 
001464 


000002 
001462 


005432 
001530 


000002 
001552 


000002 


053140 
022764 


017616 


000910 


°. 5 | 
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SEQ 0065 


T VALUE FOR SOFTWARE SWITCH REGISTER 


START THE PROGRAM 


MONITOR ADDRESS 
7BR IF MONITOR 
;NONE, CONTINUE 
CLEAR EVERYTHING 
;GO 10 THE MONITOR 
;SAVE RCOM 

; FOR 


JMP MAIN 
:"XXDP* OR "ACTI1" END OF TEST ROUTINE 
SGET42: MOV 42,R0 

BNE 1$ 

JMP PAIN 
1$: RESET 
SENDAD: JSR PC, (RO) 
NOP 

NOP 

NOP 
SDOAGN: JMP STARTI 


sACTI1 
; START AGAIN 


;,eeeeeerererrrrerrrerertererererrereerenereeeneneeneeeeeeeeeeeeee 


-SSTTL MAIN PROGRAM 


;,eeeererererrererrerererererereesereeeeeeeeeeeeneeeeeeeteneeeeee 


MAIN: MOV 
1$: TST 
2$: ADD 


3$: MOV 
4$: TST 


5$: MOV 
6$: TST 


7$: MOV 


;LOOK FOR DRIVES TO BE ASSIGNED 


MAIN]: MOV 
CLR 


#8. ,R3 
#DUNIT,RS 
) 


WAVAIL,RI 
(R1) 


5$ 
(R1),(R5) 
7$ 

#2,R1 

4$ 


MWAIT,R1 
(R1) 


2$ 
(R1),(R5) 
7$ 

#2,R1 

6$ 


(R1),RO 
,DEASSG 
PC,TYPEST 
(R5) 

(R1) 

PC, CMPRES 
2% 


#8. ,R3 
R2 





ZADDRESS OF "AVAILABLE DRIVES" 
;SEE IF AT END OF TABLE 

;BR IF AT END: GO CHECK “WAIT* TABLE 

71S DRIVE IN "AVAIL* THE ONE TO BE DROPPED 
;BR IF YES 

; INCREMENT ‘AVAIL" TABLE ADDRESS 


:BR IF IT 1S 
; INCREMENT ‘WAI7* TABLE ADDRESS 


:CLEAR THE "DROP DRIVE’ TABLE ENTRY 
REMOVE THE DRIVE FROM THE ‘AVAIL® OR ‘WAIT* TABLE 
;COMPRESS THE RESPECTIVE TABLE 
;SEE IF ANY MORE DRIVES 


sDRIVE COUNT 
;"AVAIL® INDEX 


;DRIVE COUNTER 

;ADDRESS OF ‘DROP DRIVE* TABLE 
;SEE IF ENTRY AT PRESENT POSITION 
;BR IF THERE IS ONE 

; INCREMENT TO NEXT TABLE POSITION 
sDECREMENT DRIVE COUNTER 


;BR IF MORE TO CHECK 

s ANY DRIVES ACTIVE ? 

;BR IF YES 

;CHECK FOR MONITOR RETURN 

i ABLE 


;CONTINUE LOOKING 

;MOVE THE ADDRESS OF THE BUFFER WAIT TABLE 
sAT THE END OF THE ‘WAIJT* TABLE 

“BR IF YES: SEE IF ANY MORE ror" REQUESTS 
;DRIVE IN THE ‘WAIJT* TABLE ? 


CONTINUE LOOK THROUGH THE ‘WAIT* TABLE 
;PUT THE DRIVE'S BLOCK ADDRESS IN RO 
sTYPE "DRIVE DEASSIGN ED" 

:TYPE THE DRIVE'S PERFORMANCE SUMMARY 
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CZRJDD.P11 06-JUN-79 08:32 MAIN PROGRAM 
3291 005616 005004 CLR RG s ASSIGN LIST INDEX 
3292 005620 005005 CLR RS ;NEW DRIVE INDEX 
3293 005622 005765 001506 1$: TST NEWUNT (RS) :NEW DRIVE IN THIS POSITION 
3294 005626 001006 BNE 7% BR IF THERE IS 
3295 005630 062705 000002 23: ADD #2,R5 s INCREMENT R5 
3296 005634 005204 INC RG s INCREMENT ASSIGN INDEX 
3297 005636 005303 DEC R3 sDECREMENT DRIVE COUNT 
3298 005640 001370 BNE 1$ :BR IF MORE DRIVES 
3299 005642 000432 BR MAIN2 :START OPERATIONS FOR THE AVAILABLE DRIVES 
3300 005644 104401 052450 3$: TYPE ,UNTMSG :'DRIVE' 
3301 005650 010446 MOV R4,-(SP) :;SAVE R& FOR TYPEOUT 
3302 3; TYPE DRIVE NUMBER 
3303 005652 104403 TYPOS 3;G0 TYPE--OCTAL ASCI1! 
3304 005654 002 -BYTE 2 s; TYPE 2 DIGIT(S) 
3305 005655 000 BYTE 0 3; SUPPRESS LEADING ZEROS 
3306 005656 104401 053210 TYPE ~ ASGND ; "ASSIGNED" 
3307 005662 005762 001530 43%: TST AVAIL (R2) ;AT END OF AVAILABLE TABLE 
3308 005666 001403 BEQ 5$ :BR IF YES 
3309 005670 062702 000002 AD) #2,R2 : INCREMENT AVAILABLE TABLE INDEX 
3310 005674 000772 BR 4% ; CONTINUE LOOKING FOR END OF TABLE 
3311 005676 016562 001506 001530 5$: MOV NEWUNT(RS),AVAIL(R2) ;MOVE ADDR OF DRIVE INTO AVAIL LST 
3312 005704 005065 001506 CLR NEWUNT(R5) : TAKE DRIVE OUT OF NEW DRIVE TABLE 
3313 005710 156437 033416 001462 B1SB ATABIT(R4),ASNLST ;SET DRIVE ASSIGNED INDICATOR 
3314 005716 016200 001530 MOV AVAIL (R2) ,RO :PUT STARTING ADDRESS OF BLOCK IN RO 
3315 005722 062702 000002 ADD #2,R2 : INCREMENT AVAILABLE TABLE POINTER 
wae 005726 000740 BR 2$ ;LOOK FOR MORE DRIVES 
3318 :GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
$336 * THE 'AVAILABLE' QUEUE 
3321 005730 005737 001552 MAIN2: TST WAIT sOUTSTANDING BUFFER REQUESTS 
3322 005734 001113 BNE MAINS ;BR IF THERE ARE 
3323 005736 005002 CLR R2 :CLEAR DRIVE TABLE POINTER 
3324 005740 005762 01530 1$: TST AVAIL (R2) sANY DRIVES WAITING FOR PARAMETERS 
3325 005744 001551 BEQ IDLE ;BRANCH IF NCNE 
3326 005746 016200 001530 MOV AVAIL (R2),RO :CONTROL BLOCK ADDR IN RO 
3327 005752 005760 000104 TST $NEXTCRO) ;PARAMETERS BEEN SELECTED ? 
3328 005756 001021 BNE 6$ :BR IF THEY HAVE 
3329 005760 105760 000026 TSTB $PACK (RO) s"R' OR ‘Ww’ COMMAND FOR THE DRIVE ? 
3330 005764 001403 BEQ 2$ :BR IF NOT 
3331 005766 004737 017634 JSR PC,WRIPK :GET DATA PACK PARAMETERS 
3332 005772 000415 BR 7$ :GET THE BUFFER 
3333 005774 012701 001574 2$: MOV #PARQ,R1 s ADDRESS OF THE PARAMETER QUEUE 
3334 006000 020011 3$: CMP RO, (R1) :1S CURRENT DRIVE IN THE QUEUE ? 
3335 006002 001403 BEQ 4$ sBR IF 17 IS 
3336 006004 005721 TST (R1)¢ :AT END OF THE QUEUE 
3337 006006 001403 BEQ 5$ :BR IF AT END 
3338 006010 000773 BR 3$ ; CONTINUE LOOKING 
3339 006012 004737 017616 4$: JSR PC,CMPRES : COMPRESS THE TABLE 
3340 006016 004737 016534 5$: JSR PC,SELPAR sSELECT THE PARAMETERS 
3341 006022 004737 017410 6$: JSR PC ,GETPAR sLOAD NEW PARAMETERS 
3342 006026 005046 7$: CLR - (SP) sMAKE ROOM ON THE STACK FOR THE BUFFER ADDR 
3343 006030 004737 015760 JSR PC ,GETBUF ;GET BUFFER 
3344 006034 012660 000006 MOV (SP)+,$BUF(RO) ;MOVE BUFFER ADDR TO DPB 
3345 006040 001424 BEQ 8$ sBR IF ‘O" ADDR (NO BUFFER) 
3346 006042 004737 016330 JSR PC,FILBUF sFILL THE BUFFER 





on 
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CZRID 


006046 


006162 


006164 


006266 


006270 
006274 


005060 


000666 


013700 


000072 
016456 
001440 


000026 
001574 


000072 


000072 
000002 


001552 
001530 
001530 
017616 


001552 


015760 
000006 


006270 
016330 
016456 


000072 
001440 


000026 
001574 


001440 


C 6 te 
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MAIN PROGRAM SEQ 0067 
CLR SFAIR(RO) ;CLEAR THE "FAIRNESS" COUNT 
JSR PC ,GODRIV ;PUT CURRENT DPB_IN DRIVER 
MOV #WORDERQ,RS ;ADDRESS OF ORPER- QUEUE ee R5 
TST (R5)+ sEND OF QUELIT 2°. 
BNE og ;BR IF NOT 
MOV RO, -(R5) ;PUT BLOCK ADDRESS INTO QUEUE 
TSTB $PACK (RO) :'R' OR ‘Ww’ COMMAND FOR DRIVE ? 
BNE 10% BR Ife EITHER 
MOV #PARQ,RS :PUT BLOCK INTO THE PARAMETER QUEUE 
TST (R5)+ FIND THE END OF THE QUEUE 
BNE 7é :BR If NOT AT END OF QUEUE 
MOV RO,-(R5) ;PUT BLOCK ADDRESS INTO THE QUEUE 
BR ; CONTINUE LOOKING 
001254 8$: CMP SFAIR(RO),FAIRNS ;ENTRY BEEN IN THE QUEUE LONG ENOUGH ? 
BEQ 9$ ;BR IF YES 
INC $SFAIR(RO) ; INCREMENT THE ENTRY COUNT 
ADD #2,R2 ; INCREMENT THE POINTER 
BR 1$ [LOOK FOR SOME MORE DRIVES 
9$: MOV MWAIT,RS ;"WAIT' QUEUE ADDRESS 
TST (R5)+ ;LOOK FOR AN OPENING 
BNE ¢ ;BR IF NONE YET 
MOV AVAIL(R2),-(R5) ;MOVE DRIVE'S BLOCK ADDRESS TO QUEUE 
108: MOV MAVAIL,RI ; "AVAILABLE TABLE ADDRESS 
ADD R2,R1 ;FORM ADDRESS OF LAST ENTRY 
JSR PC,CMPRES ; COMPRESS THE TABLE 
BR 1$ ; CONTINUE LOOKING 
GET BUFFER ASSIGNMENTS FOR DRIVES IN THE ‘BUFFER WAIT’ QUEUE 
MAIN3: MOV WAIT,RO ;MOVE THE ‘WAIT’ ENTRY TO RO 
CLR -(SP) ;MAKE ROOM ON THE STACK FOR THE BUFFER ADDR 
JSR PC ,GETBUF ;TRY TO GET A BUFFER 
MOV (SP)+,$BUF (RO) ;MOVE THE BUFFER ADDR TO THE DPB 
BNE 1$ BR IF A BUFFER WAS ASSIGNED 
JMP IDLE >NO BUFFER AVAILABLE YET 
1$ JSR PC,FILBUF sFILL THE BUFFER 
JSR PC,GODRIV ;PUT THE ENTRY IN THE DRIVER 
CLR $FAIR(RO) ;CLEAR THE "FAIRNESS" COUNT 
MOV WORDERQ,RS ;ADDRESS OF ORDER QUEUE IN R5 
TST (R5)+ AT END OF THE QUEUE 
BNE Ad :BR IF NOT 
MOV RO,-(R5) ;PUT BLOCK ADDRESS IN QUEUE 
TSTB $PACK (RO) :'R' OR ‘Ww’ COMMAND FOR DRIVE ? 
BNE 2$ ;BR IF YES, DON'T PUT BLOCK INTO ‘PARQ* 
MOV #PARQ,RS ;FIND THE END OF THE PARAMETER QUEUE 
TST (R5)+ ;OPEN SLOT IN THE QUEUE ? 
BNE -2 ;BR IF NOT 
MOV RO, -(R5) ;PUT BLOCK ADDRESS INTO THE QUEUE 
2$: MOV WWAIT,RI ;ADDRESS OF TABLE TO TO COMPRESS 
JSR PC,CMPRES ;COMPRESS THE WAIT TABLE 
BR MAIN2 ;LOOK FOR MORE ENTRIES 
sWAIT FOR AN ORDER TO FINISH 
IDLE: MOV #ORDERQ,R1 sADDRESS OF THE ORDER QUEUE IN R1 
1$: MOV (R1)+,R0 :PUT BLOCK ADDRESS INTO RO 


—— 
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CZRIDD 


006276 


006456 


006462 
006470 


006574 


001435 


000137 


032777 


000016 
000002 
015614 
006626 


026650 
001530 


017616 
016114 
001262 
023776 
000004 
001214 
001214 
022702 
001574 
001574 
016534 
001574 


017616 
005462 


000001 
000200 
001416 
000272 


001404 
001404 


177777 


MACY11 30A(1052) 


172530 


172450 
172440 


000100 


000102 
000404 


000102 
000074 


000104 


03-JUL-79 


MAIN PROGRAM 


2$: 


2$: 


3$: 


10:41 


IDLE 
$TATUS(RO) 
1$ 

#2,R1 


R1,-(SP) 
PC,STATIS 


PC,PROCES 
BADSEC 

PC ,ABNRML 
PC,EOP 
(SP)+,R1 
WAVAIL,RS 
(R5)+ 


28 
(R1) ,=(R5) 
PC, CMPRES 
PC ,RELBUF 
CFLAG 


i$ 

PC,KSR 
IDLE 
#SWO2,aSWR 
2$ 

STATIN 

2$ 


STATIN 
PC,STATPR 


PC, SELPAR 
#PARQ, R1 
PC, CMPRES 
MAIN 


:FIND THE END OF THE 


D 6 
PAGE 70 
SEQ 0068 


;BR IF END OF QUEUE 

;SEE IF DRIVE FINISHED 

;BR IF DRIVE NOT FINISHED 

;CORRECT THE QUEUE POINTER 

SAVE THE QUEUE ADDRESS 

ACCUMULATE STATISTICS FOR DRIVE IN RO 
;DEBUGG:NG AID 

;PROCESS END OF ORDER 


;CLEAR THE BAD TRK/SEC ERROR INDICATOR 
;SEE IF ANY DRIVES HAVE TOO MANY ERRORS 
;SEE IF ANY DRIVE HAS XFERED 3Xx10*9 BITS 
RESTORE THE ORDER TABLE INDEX 

*AVAILABLE® TABLE 
;END OF THE TABLE ? 


;BR IF NOT AT END OF LIST 
;MOVE THE BLOCK ADDRESS INTO THE TABLE 
;COMPRESS THE ORDER QUEUE 


:RESTORE BUFFER 

"CONTROL C* FLAG ENTERED ? 

;BR IF IT WAS 

;SERVICE THE KEYBOARD 

> SYSTEM WAS BUSY 

; TYPE PERFORMANCE SUMMARY 

;BR IF NOT 

: TIME TO TYPE THE PERFORMANCE SUMMARY 2? 
;BR IF NCT 

;CLEAR THE INDICATOR 

; TYPE THE SUMMARY 

SENTRY IN THE PARAMETER QUEUE ? 

;BR IF NOT 

;PUT THE BLOCK ADDRESS INTO RO 

;GET THE PARAMETERS FOR NEXT OPERATION 
;SETUP TO COMPRESS THE TABLE 

;COMPRESS THE PARAMETER QUEUE 

; CONTINUE THE LOOP 


;SETUP TO REFORMAT AN ERROR SECTCR 


REFMT: BIT #SWO,aSWR READ ONLY SWITCH SET ? 
BNE REFMTX ;BR if IT I$ 
BIT #SW7,QSWR ;SWITCH 7 SET ? 
BNE REFMTX ;BR IF IT IS 
TST FORMAT WRITE HEADER & DATA ORDERS ALLOWED ? 
BEQ REF MTX BR IF NOT 
MOV S$RPCC(RO), Sucve (RO) ;USE PRESENT CYLINDER 
JSR PC ,READDR :GET CORRECTED SECTOR-TRACK ADDRESSES 
MOVB (SP)+,$NTRK(RO) ; TRACK ADDR TO DPB 
MOVB (SP)+,$NSEC(RO) ;SECTOR ADDR TO DPB 
MOV #260.,$NWRDL(RO) ;WORD COUNT FOR FORMAT 
CMP MAXDL #260. CAN A FULL SECTOR BE WRITTEN 2? 
BHIS 1$ ;BR IF IT CAN 
MOV MAXDL,SNWRDL(RO) ;PUT TRANSFER SIZE INTO THE DPB 
1$ MOVB #3, $NCODE (RO) ; COMMAND CODE 
JSR PC ,GETPAT GET A PATTERN 
MOVB R5,$NPATC(RO) PATTERN CODE TO CONTROL BLOCK 
MOV #-' ,SNEXT(RO) [SET PARAMETERS SELECTED INDICATOR 
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3459 006602 012701 
3460 006606 005711 






3461 


006610 001405 


06-JUN-79 08:52 


001574 


MACY11 30A(1052) 


es: 


MOV 
T3T 
BEQ 


O3-JUL-79 10:41 
MAIN PROGRAM 


#PARQ,RI 
(R1) 
REFMTX 


E 6 
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;SET UP TO SEE IF BLOCK IN THE PARAMETER QUEUE | 


;SEE IF AT END OF TABLE 
;BR IF AT END 


SEQ 0069 


CZ27RJDDO, RPOG/5/6 MLT=-DR LGC 
CZRIDD.P11 


006624 


06-JUN-79 08:32 


020021 
001374 


1 
004737 017616 
000207 


F 6 
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MAIN PROGRAM 


CMP RO,(R1)* 
BNE 2% 

CLR -(R1) 

JSR PC,CMPRES 
REFMIK: RTS PC 


;PROCESS THE ORDER TERMINATION 


7SEE IF BLOCK AT PRESENT POSITION 
BR IF NOT 

;CLEAR THE ENTRY 
‘;COMPRESS THE TABLE 
; RETURN 
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006626 


006714 


006716 
006724 
006726 


006732 


007012 


007014 
007020 
007024 
007030 


007034 


007074 


111037 


000207 


032760 
001402 
000137 


032760 


000207 


104401 
104401 
104401 
013740 


104403 
0 


004737 


9 08:32 


001246 
000016 


100000 
040000 
040000 
013056 
013156 
000002 


013242 


000200 
007352 


010000 
004000 
002000 
001000 
040002 
000004 


001165 
045556 
053163 
001246 


001165 


022050 


MACY11 


000234 
000234 
000246 


172232 


000016 


000016 
000016 
000016 
000016 
900016 
000016 


30A(1052) 


PROCES: 


1$: 


2$: 


G 6 
03-JUL-79 10:41 PAGE 
MAIN PROGRAM 


MOVB 


(RO) ,UNIT 
STATUS(RO) 


ERPROC :BR | 
#B1T1S5,SRPCS1(RO) 

1$ BR 
ehhe SRPCS1(RO) 


ERPROC ; BR 
#B1114,$RPDS1(RO) 
ERPROC ;BR IF 


73 


"er" 


T SET 
"TRE 


;DRIVE NUMBER FOR ANY ERROR MESSAGES 
;SEE IF ot be SIGNALED AN ERROR 


SET 
SET 
SET 


CHECK ERROR BITS ANYWAY 
CHECK BUS ADDR @ wC 


COMPARE DATA 


PC,CKERR NO ERROR, 

PC. CKBUS ;NO ERROR, 

#SWO1,aSWR ;DATA COMPARE ? 
;BR IF NOT 

PC,CMPAR :NO ERROR, 

PC ; RETURN 


:ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
;DONE BIT SET ? 


ERPROC: 


BIT 
BEQ 
JMP 


#B1T07,$TATUS(RO) 
ERPRC1 
DONE 


;BR IF ORDER DIDN'T COMPLETE NORMALLY 
;PROCESS ERROR WITH "DONE’ BIT SET 


PROCESS ORDER COMPLETION WITH "EPROR® & "DONE NOT" BITS 


ERPRC1: 


BIT 
B 


“41112, STATUS (RO) 


PUNSAF 


ucP 
#81110, STATUS (RO) 


DRIVE 15 PERSISTENTLY UNSAFE 


PUNSAF : 


TYPE 
TYPE 


;BR 
#81711, $TATUS (RO) 
PAR :B 


;SEE IF D 
IF YES 
;PARITY E 

F IT D 


RIVE 


RROR 
1D 


l 
FATAL PARITY 


WAS UNSAFE 
OCCURRED 


ERROR? 

FALPAR 1F THERE IS ONE 
ne Bag STATUS (RO) ; TIMEOUT? 
SWTIM = BR IF YES 
#BITIG‘BITOIT,STATUS(RO) ;DRIVE WENT OFFLINE ? 
OFLIN sBR IF IT DID 
MBITZ2,$TATUS(RO) ;PORT REQUEST TIME OUT ? 
PRTIM :BR IF IT DID 
PC sERROR. RETURN 
,oCRLF s CRLF 
,EMI2 : "DRIVE UNSAFE" MESSAGE 
,DRNUM ;DRIVE NUMBER 
UNIT,-(SP) >; SAVE UNIT FOR TYPEOUT 

3; TYPE DRIVE NUMBER 

3:G0 TYPE--OCTAL ASCI]1 
2 >; TYPE 2 DIGIT(S) 
0 ; , SUPPRESS LEADING ZEROS 
,SCRLF > CRLF 
PC,LINE) “PRINT LINE 1 OF ERROR MESSAGE 
»EMI2 sPERSISTENT DEVICE UNSAFE MESSAGE 
PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
PC,LINES >PRINT LINE 3 OF ERROR MESSAGE 
PC,LINES sPRINT LINE 4 OF THE ERROR MESSAGE 
PC,INCTO! s INCREMENT TOTAL ERROR COUNT 
PC,LINE? sPRINT LINE 7 QF ERROR MESSAGE 
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007100 


007104 
007110 
007114 


007116 
007122 
007126 
007132 


007136 
007140 
007141 
007142 
007146 
007152 
007160 
007162 
007164 


007166 


007222 


007224 
007230 
007234 
007240 


007244 
007246 


007310 


06-JUN-79 08:32 


000137 


104401 
104401 
000404 


104401 
104401 
104401 
013746 


104403 
002 


000000 
000207 


004737 
104414 
004737 
004737 
004737 
004737 
004737 
000207 


104401 
104401 
104401 
013746 


104403 
0 


000137 


026544 


001165 
045460 


001165 
045523 
053163 
001246 


001165 
923512 
100000 


020266 
045607 
020332 
020740 
021414 
023512 
022050 


001165 
045661 
053163 
001246 


001165 


026544 


MACY11 30A(1052) 


171760 


MAIN PROGRAM 
JMP 


;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 


UCPAR: TYPE 
TYPE 


FALPAR: TYPE 
TYPE 
FALPRI: TYPE 
MOV 


1$: RTS 


03-yuL-79 


10:41 


DROP 


- SCRLF 
,EM10 
FALPRI 


UNIT, <(SP) 
2 

0 

, SCRLF 


PC, INCTOT 
#SWiS,aSwR 
1$ 


PC 


SOFTWARE TIMEOUT OCCURRED 


SWIIM: JSR 


PC,LINE1 
,EM13 
PC,LINE2 
PC,LINES 
PC,LINES 
PC,INCTOT 
PC, LINE? 
PC 


;DRIVE WENT OFFLINE 


OFLIN: TYPE 
TYPE 
TYPE 
MOV 


PC, INCTOT 
PC,LINE7 
DROP 


H 6 
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;DROP THE DRIVE 


sCR-LF 


; "UNCORRECTABLE PARITY ERROR’ MESSAGE 
FINISH PROCESSING THE ERROR 


;"FATAL® MASSBUS PARITY ERROR OCCURRED 


;CR-LF 


"FATAL PARITY ERROR’ MESSAGE 
;ORIVE NUMBER 
37 SAVE UNIT FOR TYPEOUT 
3; TYPE DRIVE NUMBER 
+360 sy meateet Rect 
sTYPE 2 DIGIT 
>: SUPPRESS MEAD ING ZEROS 


;CR-LF 


INCREMENT TOTAL ERROR COUNT 
;HALT ON ERROR ? 


;BR IF NOT 
sERROR HALT 


;PRINT LINE 


1 OF ERROR MESSAGE 


PRINT THE TIME OUT MESSAGE 

PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 


PRINT LINE 
RETURN 


3 CROLF 


7 OF ERROR MESSAGE 


s"DRIVE WENT OFFLINE* MESSAGE 
;DRIVE NUMBER 

;;SAVE UNIT FOR TYPEOUT 

si: TYPE DRIVE NUMBER 

3;GO TYPE--OCTAL ASCI1 

s;TYPE 2 DIGIT(S) 

>; SUPPRESS LEADING ZEROS 


> CRLF 
sPRINT LINE 


1 OF THE ERROR MESSAGE 


PRINT OFFLINE MESSAGE 

PRINT LINE 2 OF THE ERROR MESSAGE 
;PRINT LINE 3 OF THE ERROR MESSAGE 
PRINT LINE 4 OF THE ERROR MESSAGE 
> INCREMENT TOTAL ERROR COUNT 


;PRINT LINE 


7 OF THE ERROR MESSAGE 


;DROP THE DRIVE 


CZRIDDO, RPOG/5/6 MLT=-DR LGC 
CZRIOD.P11 06-JUN-79 08:32 


3584 007314 004737 020266 


022059 


3591 007350 000207 


3595 007352 032760 000030 


012554 
040000 


040000 


012320 
000400 


010776 
000020 


011160 
000200 


011354 
020000 


011654 
000010 


012006 
000040 


012456 
002000 


012100 
004000 


012132 
001000 


002000 


010000 


011764 
040000 
010450 


3637 007620 000137 


MACY11 30A(1052) 


000016 


000244 
000246 


0002506 


000250 


000250 


000250 


000250 


000250 


000250 


000250 


000250 
000246 


000250 


000244 


03-JUL-79 


MAIN PROGRAM 
;PORT REQUEST TIMEOUT ERROR 


PRIIM: 


1 6 
10:41 PAGE 75 


PC LINE! : TYPE LINE 1 OF THE ERROR MESSAGE 
,EM15 ;PRINT PORT TIME OUT MESSAGE 
PC,LINE2 ; TYPE LINE 2 OF THE ERROR MESSAGE 
PC, LINES TYPE LINE 3 OF THE ERROR MESSAGE 
PC,LINES ; TYPE LINE 4 OF THE ERROR MESSAGE 
PC, INCTOT INCREMENT TOTAL ERROR COUNT 
PC,LINE?7 ; TYPE LINE 7 OF THE ERROR MESSAGE 
PC ; RETURN 


PROCESS ORDER COMPLETION WITH ERROR’ & "DONE SITS SET 


DONE : 


1%: 


2$: 


mc hepereetae “Id 
. “| 


“REPORT UNSAFE 
apitt, ,$RPCS2(RO} 1 "WwCE' SET ? 


R IF SET 
#BIT14, $RPDS1(RO) CHECK “ERR* 
4 rar IF SET 
;PROCESS ‘TRE’ 
#81108, SRPERT (RO) ;"HCRC* SET? 
+6 :BR IF NOT 
HCRCER ;PROCESS ‘HCRC* 
+ bees SRPERI(RO) ; "FMT" SET? 
;BR IF NOT SET 
cx ; CHECK FORMAT ERROR 
#5107, SRPERI(RO) ;"HCE’ SET? 
f° IF NOT SET 
CHECK ‘HCE’ _ ERROR 
;"OPI" SET 
;BR IF NOT SET 
oP REPORT ‘OPI* 
WBIT3, SRPERT(RO) ; "PAR" SET? 
+6 ;BR IF NOT SET 
PARER REPORT ‘PAR’ 
set Ia SRPERICRO) ;'WCF* SET? 
. = 1f NOT SET 
wick PER REPORT ‘wWCF' 
#61110, $RPER1(RO) SOTA SET? 
-*6 ;BR 1F NOT SET 
IAEER REPORT ‘IAE’ 
ae SRPERI(RO) ;"WLE* SET? 
BR IF NOT SET 
wee REPORT ‘WiE' 
#8119, SRPERT (RO) ;"AQE" SET? 


2 ;BR IF NOT SET 
~  aetataeaotar agra 


cx 
aB1T13, $RPERT(RO) 
+ * 


R | 

:"LST* SET? 
7;BR IF NOT SET 

PC ." : "EST" SST, 

WB1T12, SRPERT (RO) 

: 
DIEER REPORT ‘DTE* ERROR 
O81 116, $RPCS2(RO} 

:BR IF NOT SET 


WCKER REPORT ‘wCk* 


ee IF ‘DTE* SET 
1F NOT 


SEE IF ‘wCK* SET 


UNSAFE OCCURRED 
NOT 


EXIT 


SEQ 0073 


pe ee | 


a 


CZRIDDO, RPOG/5/6 MLT=-DR LGC 
CZRJDD.P11 7 


007624 


007652 


007656 


10014 


— et ae ot ot ot tt OE 


06-JUN- 
005760 


000137 


022760 


103010 


9 08:32 


000250 


007656 
140000 


012420 
011126 


010042 
000300 
000302 
020266 


015466 
021766 


021774 
022050 


020130 
000024 
010450 


010100 
021740 
000020 
000002 
000007 


000022 


MACY11 


000276 


000300 


001252 


000001 


001250 
000250 


001252 
000262 


000012 
000020 


J 6 
30A(1052) O3-JUL-79 10:41 PAGE 76 
MAIN PROGRAM 
TST —-- SRPERT(RO) SEE IF "DCR SET 
BPL o BR IF NOT 
JMPODCKE PROCESS. “DCK: 
BIT rBitt5: BI114,$RPERS(RO) j1SKI" OR *OCYL* SET 
Q Bk0 ;BR IF NOT SET 
IMP KIER SREPORT ERROR 
JMP—DRVER :REPORT DRIVE ERROR 


;PROCESS DATA ("DCK") CHECK ERROR 


DCKER: 


23: JSR 
3$: JSR 


4$: JSR 
5$: RTS 


6$: JSR 
DCKER1: 


16%: 


oo SRPECT(RO) 
1$ 7 BR 
SRPECTC(RO) 
1$ 


;VALID POSITION COUNT ? 
If NOT VALID 

POSITION COUNT 0 ? 

;BR IF 0°S 


SRPEC2(RO) 7VALUE IN PATTERN REGISTER ? 
4% :BR IF YES 
PC,LINE1 ; TYPE FIRST LINE OF ERROR MESSAGE 
,EM45 sTYPE "ECC LOGIC ERROR* 
PC,LINE2 TYPE LINE 2 OF ERROR MESSAGE 
PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
#3, RETRY RETRY COUNT 
PC, SRETRY RETRY THE ORDER 
2$ RETRY WAS NOT SUCCESSFUL 
PC,LINE6C ; TYPE LINE 6C OF ERROR MESSAGE 
3$ sFINISH THE ERROR REPORT 
PC,LINE6D ; TYPE LINE 6D OF ERROR MESSAGE 
eal Js LINE 7 OF ERROR MESSAGE 

sex 
PC, SPOTCK 7SEE If ERROR AT A BAD SPOT ON THE PACK 
PC ;1T7 1S, DON'T REPORT IT 
$CODE (RO) .#1 [1S ORDER A WRITE CHECK ? 
6$ ;BR IF NOT 
WCKER ;REPORT ERROR UNDER WRITE CHECK PROCESSING 
PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
-EM21 ;DATA CHECK ERROR 
PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
PC,LINE3 ;PRINT LINE 3 OF ERROR MESSAGE 
PC,LINES PRINT LINE & OF ERROR MESSAGE 
PC,PRTBAD ;SEE IF BAD SECTOR 10 BE PRINTED 


fete: 'B1T06, $RPER1 (RO) * CHECK "DTE' & “ECH' 
sFINISH THE ERROR REPORT 

R 7RI 

MBITO1,SRPDT(RO) ;1S DRIVE ANR 

16% R IF 17 1S 

PC,READDR ;GET THE ADDRESS OF THE ERROR SECTOR 

SRPCC(RO) SCYL(RO) ;PRESENT CYLINDER 


WBIT1S'BIT12'BIT06,MASK ;LOAD ERROR MASK 

$ <BR IF SET 
PC LINES “PRINT LINE 6 OF ERROR MESSAGE 
#16. RETRY “RETRY COUNT 

1 1S OFFSET CODE POINTER 
#7,R1 INCREMENT PAST RPO6 OFFSET CODES 
PC .RELBUF “RELEASE THE BUFFER 

(SP)+,$TRK(RO) :TRACK ADDRESS OF ERROR SECTOR 
(SP)+-$SEC(RO) = SECTOR ADDRESS OF ERROR SECTOR 
$SSEC(RO) $WRDL(RO) :SEE IF TRANSFER LENGTH LESS THAN 1 SECTOR 
15$ :BR IF IT 1S; USE PRESENT TRANSFER LENGTH 


K 6 
CZRJDDO, RPOG/5/6 MLT=-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE 77 


CZRJOD.P11 06-JUN-79 08:32 MAIN PROGRAM SEQ 0075 
3694 010136 016060 000022 000020 MOV SSSEC(RO),SWROL(RO) ; CHANGE TRANSFER SIZE TO 1 SECTOR 
3695 010144 016060 000020 000004 MOV SWROL(RO),SWROM(RO) ;SETUP WORD COUNT FOR OPERATION 
3696 010152 005460 000004 NEG SWROM(RO) ;CHANGE COUNT TO 2°S COMP 
3697 010156 005046 15$: CLR -(SP) 3 ae — NEW BUFFER ADDRESS 
3698 010160 004737 015760 JSR PC ,GE TBUF :GET A BUFFER 
3699 010164 012660 000006 MOV (SP)+,$BUF(RO) ;NEW BUFFER ADDRESS TO DPB 
3700 010170 004737 016456 2$: JSR PC ,GODRIV ;RETRY 
3701 010174 005760 000016 3$: TST STATUS(RO) TEST FOR DONE 
3702 010200 001775 BEQ 3$ :BR 1F NOT DONE 
3703 010202 100075 BPL 10$ :BR IF NOT ERROR 
37046 010204 032760 000200 000016 BIT WBIT7,STATUS(RO) ;SEE af * to TERMINIATED NORMALLY 
3705 010212 001006 BNE 14% :BR If 
3706 010214 004737 023512 JSR PC, INCTOT i TNCREMENT TOTAL ERROR COUNT 
3707 010220 104414 051476 DISPLY ,LIN8M "DIFFERENT ERROR DURING RETRY" 
3708 010224 000137 006732 JMP ERPRC1 ;SEE WHICH ERROR 
3709 010230 033760 001250 000250 14%: BIT MASK ,SRPERI(RO) ;LOOK AT CURRENT ERROR 
3710 010236 001430 BEQ 5$ ;BR IF DIFFERENT ERROR 
3711 010246 032760 010100 000250 BIT WBITIZ!BIT6O,$RPERI(RO) ;"ECH' OR DIE’ STILL SET ? 
3712 010246 001437 BEQ 7$ ;BR IF NEITHER SET 
3713 010250 105237 001253 INCB RETRY*1 ; INCREMENT RETRY COUNT 
3714 010254 123737 001252 001253 CMPB RETRY,RETRY*+1  ;DONE ? 

3715 010262 001342 BNE 2$ ;BR IF NOT 
3716 010264 005201 INC R1 ; INCREMENT TABLE INDEX 
3717 010266 116137 002220 045077 MOVB OFFCOD(R1),GENDPB+SFMT ;OFFSET CODE 
3718 010274 001435 BEQ 9$ :BR IF END OF OFFSET TABLE 
3719 010276 062737 000002 001252 ADD #2,RETRY NEW RETRY LIMIT 
3720 010304 004737 015360 JSR PC,OFFST ; OFFSET 
3721 010310 005737 045114 4$: TST GENDPB+S$TATUS ;SEE IF FINISHED WITH OFFSET 
3722 010314 001775 BEQ 4$ :BR IF NOT 
3723 010316 100324 BPL 2% :BR IF NO ERROR PERFORMING OFFSET 
3724 010320 004737 0622316 2: . #A PC,LINES ;PRINT LINE 8 OF ERROR MESSAGE 
3725 010324 004737 023416 6$: JSR PC, INCHRD :INCREMENT "HARD ERROR COUNT 
3726 010330 004737 023512 JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
3727 010334 004737 022050 JSR PC,LINE7 :PRINT LINE 7 OF ERROR MESSAGE 
3728 010340 004737 015130 JSR PC,PRTBAD ;PRINT THE BAD SECTOR 
3729 010344 000436 BR 13% ;CLEAN UP AND RETURN 
3730 010346 004737 021760 7$: JSR PC,LINE6B PRINT LINE 6B OF ERROR MESSAGE 
3731 010352 004737 021676 JSR PC,LINESB ;PRINT LINE 5B OF THE ERROR MESSAGE 
3732 010356 004737 023372 8$: JSR PC, INCSOF INCREMENT ‘SOFT* ERROR COUNT 
3733 010362 004737 014370 JSR PC,ECC ;CORRECT THE ERROR USING ECC AND CHECK IT 
3734 010366 000407 BR 11$ ; COMPARE THE BUFFER 
3735 010370 004737 021774 9$: JSR PC,LINE6D ;PRINT LINE 6D OF ERROR MESSAGE 
3736 010374 000753 BR 6% ; INCREMENT ERROR COUNT 
3737 010376 004737 021752 10$: JSR PC,LINEOA PRINT LINE 6A OF ERROR MESSAGE 
3738 010402 004737 0233572 JSR PC, INCSOF > INCREMENT ‘SOFT’ ERROR COUNT 
3739 010406 012737 000001 001500 118: MOV #1, FRSTER ;SET PROCESSING "DCKER* INDICATOR 
3740 010414 004737 013260 JSR PC, CMPARD ;COMPARE THE BUFFER 
3741 010420 105737 001301 TSTB FRSTER+1 ERROR IN COMPARE ? 
3742 010424 100406 BM] 13% ;BRANCH IF ERROR 
37435 010426 004737 023512 JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
3744 010432 104414 051710 DISPLY ,LINIG :"DATA COMPARE OK' MESSAGE 
3745 010436 004737 022050 12$: JSR PC,LINE? PRINT LINE 7 OF ERROR MESSAGE 
3746 010442 004737 006462 13$: JSR PC,REFMT REFORMAT THE ERROR SECTOR 
tren 010446 000207 RTS PC ;RETURN 

4 
3749 WRITE CHECK ERROR PROCESSING 


CZRIDDO, RPOG/S/6 MLT-DR LGC 
06-JUN-79 08:32 


CZRJDD. 


Pt) 


010600 
010606 


032760 


012737 
104414 


000406 


100000 
020266 


015466 
021766 
021774 
020130 
020266 
046012 
040000 


046713 


020332 


000100 
000020 


016456 
000016 


001253 
021766 


001253 
001252 


100000 
000100 
021766 
022316 


023512 
022050 


MACY11 30A(1052) 


000250 


001252 


010610 
000244 


010610 


000250 
001252 


001253 
000250 
000250 


L 6 
PAGE 78 


03-JUL-79 10:41 
MAIN PROGRAM 
WCKER: BIT #BITIS,SRPERI(RO) ;SEE IF "DCK* SET ALSO 
BNE 2% :BR 1f IT | 
JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM23 sPRINT WCE & DCK NOT 
CLR MASK [CLEAR ERROR MASK 
JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINES ;PRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINES :PRINT LINE 4 OF ERROR MESSAGE 
JSR PC,LINES PRIN NT LINE 5 OF ERROR MESSAGE 
JSR PC, INCTOT INCREMENT TOTAL ERROR COUNT 
MOV #3,RETRY RETRY LIMIT 
JSR PC. SRETRY =RETRY THE OPERATION 
BR 1% sRETRY UNSUCESSFUL 
JSR PC,LINE6C ;PRINT LINE 6C OF ERROR MESSAGE 
BR $ sFINISH PROCESSING THE ERROR 
1$: JSR PC,LINE6D ;PRINT LINE 6D OF ERROR MESSAGE 
BR 10% sFINISH PROCESSING THE ERROR 
2$: JSR PC,SPOTCK :SEE IF ERROR AT BAD SPOT ON THE PACK 
BR 11% sEXIT IF AT BAD SPOT ON PACK 
JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
MOV #EM22, 13% ASSUME THAT EM22 WILL BE PRINTED 
BIT #BITI4, SRPCS2(RO} :DID ‘WwCK* ALSO SET ? 
BNE i2$ IF IT DID 
MOV #EM37,13% MESSAGE FOR "DCK* AND ‘WCK* NOT DURING 
sWRITE CHECK 
12$: DISPLY TYPE THE ERROR MESSAGE 
13$: -WORD 0 ;MESSAGE ADDRESS GOES HERE 
JSR PC,LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE3 sPRINT LINE 3 OF ERROR MESSAGE 
JSR Pe oranda sPRINT LINE 4& OF ERROR MESSAGE 
JSR PC NE5 sPRINT LINE 5 OF ERROR MESSAGE 
BIT seitoe. SRPERT (RO) sECH SET ALSO ? 
BEQ 8$ FINISH PROCESSING THE ERROR 
3$: MOV #16. ,RETRY =RETRY LIMIT - 16 (10) 
4$: JSR PC,GODRIV sRETRY THE ORDER 
5$: TST STATUS(RO) SORDER FINISHED ? 
BEQ 5$ ;BR IF NOT 
BM] 6$ ;BR IF ERROR ON ORDER 
INCB RETRY+1 : INCREMENT RETRY COUNT 
JSR PC,LINE6C sPRINT LINE 6C OF ERROR MESSAGE 
BR 9$ sFINISH ERROR PROCESSING 
6$: INCB RETRY+#1 > INCREMENT RETRY COUNT 
CMPB RETRY,RETRY*1 sDONE ? 
BEQ 1$ ‘ sBR IF AT RETRY LIMIT 
BIT #BITIS,SRPERI(RO) ;"DCK' SET 
BEQ 7$ :BR IF NOT - DIFFERENT ERROR 
BIT #B1T06, SRPERT(RO) >"ECH' ALSO SET 
BNE 4% IF IT IS, RETRY ORDER 
JSR PC ,LINE6C =PRINT LINE 6C OF ERROR MESSAGE 
BR 8$ sFINISH PROCESSING ERROR 
7$: JSR PC,LINES8 PRINT LINE 8 - "DIFFERENT ERROR ° 
ad rh sFINISH PROCESSING ERROR 
&$: JSR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE7 ;FINISH THE ERROR MESSAGE 
BR 11$ EXIT 





SEQ 0076 


A 6 
CZRJDDO, RPOG/5/6 MLT-DR LG MACY11 30A(1052) O3-JUL-79 10:41 PAGE 79 
MAIN PROGRAM 


CZRJDD.P11 06-JUN-79 08:32 SEQ 0077 

010760 004737 023512 9$: JSR PC, INCTOT 7 INCREMENT TOTAL ERROR COUNT 

3807 010764 004737 022050 108: JSR PC,LINE? sFINISH THE ERROR MESSAGE 

3808 010770 004737 006462 JSR PC,REFMT sREFORMAT THE SECTOR IN ERROR 

44 010774 000207 118: RTS PC 7 RETURN 

si ;REPORT ‘HCRC* ERROR 

3813 010776 004737 020150 HCRCER: JSR PC ,SPOTCK SEE IF ERROR AT PACK BAD SPOT 

3814 011002 000450 BR 38 EXIT IF IT 1S 

3815 011004 004737 020266 JSR PC,LINE| PRINT LINE 1 OF ERROR MESSAGE 

3816 011010 104414 045740 DISPLY ,EM20 ;REPORT ‘HCRC" 

3817 011014 004737 020332 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 

3818 011020 004737 020740 JSR PC, LINES ;PRINT LINE 3 OF ERROR MESSAGE 

3819 011024 004737 021414 JSR PC.LINES PRINT LINE 4 OF ERROR MESSAGE 

3820 011030 032760 040000 000244 BIT WBITIG,SRPCS2(RO) ;*WCE* ERROR ALSO ? 

3821 011036 001402 BEQ 1$ ;BR IF NOT 

3822 011040 004737 021504 JSR PC,LINES DISPLAY WORDS WHICH CAUSED ‘WCE’ 

3823 011044 004737 023372 1$: JSR PC, INCSOF INCREMENT ‘SOFT® ERROR COUNT 

3824 011050 004737 023512 JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 

3825 011054 012737 000400 001250 MOV #B1T8,MASK ;SET ERROR, MASK V3 

3826 011062 012737 000003 001252 MOV #3,RETRY RETRY LIMIT o 

3827 011070 004737 015466 ~ JSR PC ,SRETRY RETRY ORDER 

3828 011074 000405 BR 2$ RETRY NOT SUCESSFUL 

3829 011076 004737 021766 JSR PC ,LINE6C PRINT LINE 6C OF ERROR MESSAGE 

3830 011102 004737 022050 JSR PC, LINE? ;PRINT LINE 7 OF ERROR MESSAGE 

3831 011106 000406 BR 3$ sEXIT 

3832 011110 004737 021774 2$: JSR PC,LINEOD PRINT LINE 6D OF ERROR MESSAGE 

3833 011114 004737 022050 JSR PC,LINE7 ;PRINT LINE 7 OF ERROR MESSAGE 

3834 011120 004737 006462 JSR PC,REFMT ;REFORMAT THE ERROR SECTOR 

sacs 011124 000207 3$: RTS PC ; RETURN 

444 REPORT DRIVE ERROR 

3839 011126 004737 020266 DRVER: JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 

3840 011132 104414 046355 DISPLY ,€M30 ;REPORT DRIVE ERROR 

3841 011136 004737 020332 JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 

3842 011142 004737 020740 JSR PC,LINES ;PRINT LINE 3 OF ERROR MESSAGE 

3843 011146 004737 023512 JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 

3844 011152 004737 022050 JSR PC,LINE7 ;PRINT LINE 7 OF ERROR MESSAGE 

oh 011156 000207 RTS PC :RETURN 

46 
94 PROCESS FORMAT (‘FER’) ERROR 
4 

3849 011160 032760 000400 000250 CKFMT: BIT WBITS,SRPERT(RO) ;"HCRC* SET ON ORIGINAL ERROR ? 

3850 011166 001402 BEQ 1$ :BR IF NOT SET 

3851 011170 000137 010776 JMP HCRCER REPORT HCRC ERROR 

3852 011174 004737 022402 1$: JSR PC,READDR GET CORRECTED TRACK & SECTOR ADDRSSES 

3853 011200 004737 015404 JSR PC ,READHD ;READ HEADER 

3854 011204 032737 000400 045132 BIT #BIT&,GENREG*RPER] ;"HCRC* SET WHEN HEADER READ? 

3855 011212 001002 BNE 2$ ;BR IF ‘HCRC’ SET 

3856 011214 000137 012160 JMP FMTER ;NO, ERROR IS ‘FMT* ONLY 

3857 011220 004737 020150 2$: JSR PC,SPOTCK ;SEE If ERROR AT BAD SPOT ON THE PACK 

3658 011224 000452 BR 5$ EXIT lf IT 1S 

3859 011226 004737 020266 JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 

3860 011232 104414 046144 DISPLY ,EM24 ;HEADER READ ERROR = FMT BIT DROPPED UP 

3861 011236 004737 020332 JSR PC ,LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 


CZRIDDO, RPOG/5/6 MLT-DR LGC 


CZRJDD.P11 06-JUN-79 08:52 
3862 0112462 004737 020740 
3863 0112466 0046737 021414 
3864 011252 032760 040000 
5865 011260 001402 
3866 011262 004737 021504 
3867 011266 004737 021604 
3868 011272 004737 023372 
3869 011276 004737 023512 
3870 011302 012737 000020 
3871 011310 012737 000003 
3872 011316 004737 015466 
38735 011322 000405 
3874 011324 004737 021766 
3875 011330 004737 022050 
3876 011334 000406 
3877 011336 004737 021774 
5878 011342 004737 022050 
3879 011346 004737 006462 
3880 011352 000207 
3881 
3882 
3883 
3884 011354 032760 000400 
3885 011362 001402 
3886 011364 000137 010776 
3887 011370 004737 022402 
3888 011374 004737 015404 
3889 011400 032737 000400 
3890 011406 001016 
3891 011410 042737 010000 
3892 011416 026037 000272 
3893 011424 001402 
3894 011426 000137 011600 
3895 011432 052737 010000 
3896 011440 000137 012236 
3897 011444 004737 020130 
3898 011450 000452 
3899 011452 004737 020266 
3900 011456 104414 046212 
3901 011462 004737 020332 
3902 011466 004737 020740 
3903 011472 004737 021414 
3904 011476 032760 040000 
3905 011504 001402 
3906 011506 004737 021504 
3907 011512 004737 021604 
3908 011516 004737 023372 
3909 011522 004737 023512 
3910 011526 012737 000200 
3911 011534 012737 000003 
3912 011542 004737 015466 
3913 011546 000405 
3914 011550 004737 021766 
3915 011554 004737 022050 
3916 011560 000406 
3917 011562 004737 021774 


MACY11 350A(1052) 


000244 


, 


001250 
001252 


000250 


045132 
054746 
054746 


054746 


000244 


3$: 


4$: 


5$: 


;PROCESS HEADER 
CKHCE: 


1$: 
2$: 
3$: 


4$: 


5$: 


N 6 
03-sUL-79 10:41 PAGE 
MAIN PROGRAM 


8&0 
SEQ 0078 
PC,LINES eater LINE 3 OF ERROR MESSAGE 
PC,LINEG sPRINT LINE 4 OF ERROR MESSAGE 
beeen ee wet ERROR ALSO ? 
PC,.LINES ;DISPLAY WORDS WHICH CAUSED ‘WCE’ 
PC,LINESA sDISPLAY HEADER 
PC, INCSOF : INCREMENT SOFT ERROR COUNT 
PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
#B114,MASK :SET ERROR MASK 
#3, RETRY SRETRY LIMIT 
PC, SRETRY ;RETRY THE ORDER 
4% sRETRY NOT SUCESSFUL 
PC,LINE6C ;PRINT LINE 6C OF ERROR: MESSAGE 
+ acai ttt LINE 7 OF ERROR MESSAGE 
sen 
PC,LINE6D sPRINT LINE 6D OF ERROR MESSAGE 
PC,LINE7 sPRINT LINE 7 OF ERROR MESSAGE 
PC,REFMT REFORMAT THE ERROR SECTOR . 
PC ;RETURN : 
COMPARE (‘HCE’) ERROR / 
#BIT8,SRPERT(RO) ;HCRC SET ON ORIGINAL ERROR ? 
1$ 7BR IF NOT SET 
HCRCER sREPORT HEADER CRC ERROR 
Pt. ee :GET CURRENT SECTOR & TRACK ADDRS 
PC,READHD READ HEADER OF CURRENT SECTOR 


#Bi18, GENREG*RPERI ;"HCRC* SET ? 
3$ R IF 


#B1T12,CYLDER 


SRPCC(RO) ,CYLDER 
2$ ; 


POSER 
#B1T12,CYLDER 
HCEER 
PC, SPOTCK 
6$ 
PC,LINE1 
M25 


PC ,LINE2 
PC, LINES 
PC. 


PC, LINES 
PC.LINESA 
PC, INCSOF 
PC, INCTOT 
#B1T7, MASK 
#3,RETRY 
PC ,SRETRY 
5% 


PC AL 1NE6C 
PC,LINE? 


6% 
PC,LINE6D 


SET 
TCLEAR FORMAT BIT FROM HEADER 
;CORRECT CYLINDER ? 
If IT 1S 


:BR 

REPORT POSITIONING ERROR 

RESTORE THE FORMAT BIT 

;REPORT ‘HCE* ERROR 

;SEE 1F ERROR AT BAD SPOT 

sEX1T IF IT IS 

PRINT LINE 1 OF ERROR MESSAGE 

;HEADER READ ERROR - ‘HCE’ SET 

PRINT LINE 2 OF ERROR MESSAGE 

;PRINT LINE 3 OF ERROR MESSAGE 
LINE 4 OF ERROR MESSAGE 


LINES ; PRINT 
aBiTs, SRPCS2URO) WCE ERROR ALSO ? 


DISPLAY WORDS WHICH CAUSED "WCE" 
SPRINT LINE 5 OF ERROR MESSAGE 

>: INCREMENT SOFT ERROR COUNT 

: INCREMENT TOTAL ERROR COUNT 

;SET ERROR MASK 

RETRY LIMIT 

RETRY THE ORDER 

RETRY NOT SUCESSFUL 

PRINT LINE 6C OF ERROR MESSAGE 
:PRINT LINE 7 OF ERROR MESSAGE 


sé 
PRINT LINE 6D OF ERROR MESSAGE 


B 7 or aad | 
CZRIDDO, RPO4/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE #1 


C2RJDD.P11 06-JUN-79 08:32 MAIN PROGRAM s£Q 0079 | 
3918 011566 004737 022050 JSR PC,LINE? :PRINT LINE 7 OF ERROR MESSAGE 
3919 011572 004737 006462 JSR PC. REFMT >REFORMAT THE ERROR SECTOR 
3920 011576 000207 63: RTS PC RETURN 
3922 :REPORT POSSIBLE POSITIONING ERROR 
3924 011600 004737 015326 POSER: JSR PC,RECALT :RECALIBRATE 
3925 011604 004737 020266 JSR PC,LINE! >PRINT LINE 1 OF ERROR MESSAGE 
3926 011610 104414 047540 DISPLY ,&M51 =PROGRAM DETECTED POSITIONING ERROR 
3927 011614 004737 020332 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
3928 011620 004737 020766 JSR PC, LINE 3C “PRINT LINE 3C OF ERROR MESSAGE 
3929 011624 052737 010000 054746 BIS #BIT12,CYLDER ;RESTORE THE FORMAT BIT 
3930 011632 004737 021604 JSR PC,LINESA [PRINT LINE 5A OF THE ERROR MESSAGE 
3931 011636 004737 023466 JSR PC, INCMIS “INCREMENT MISPOSITIONING COUNT 
3932 011642 004737 023512 JSR PC,INCTOT : INCREMENT TOTAL ERROR COUNT 
3933 011646 004737 022176 JSR PC,LINEZA :PRINT LINE 7A OF ERROR MESSAGE 
3934 011652 000207 RTS PC sEXIT 
3957 ;REPORT ‘OPI’ ERROR 
3938 011654 004737 020130 OPIER: JSR PC, SPOTCK :SEE IF ERROR AT BAD SPOT 
3939 011660 000207 RTS PC sRETURN IF IT IS 
3940 011662 004737 020266 JSR PC,LINE1 “PRINT LINE 1 OF ERROR MESSAGE 
3941 011666 104414 046407 DISPLY ,EM31 :"OPL' ERROR 
3942 011672 004737 020332 JSR PC,LINE2 “PRINT LINE 2 OF ERROR MESSAGE 
3943 011676 004737 020740 JSR PC,LINE3 =PRINT LINE 3 OF ERROR MESSAGE 
3944 011702 004737 021414 JSR PC, LINES “PRINT LINE 4 OF ERROR MESSAGE 
3945 011706 004737 023512 JSR PC, INCTOT ‘INCREMENT TOTAL ERROR COUNT 
3946 011712 012737 020000 001250 MOV #B1113,MASK *ERROR MASK 
3947 011720 012737 000003 001252 OPIER1: MOV #3,RETRY =RETRY LIMIT 
3948 011726 004737 015466 JSR PC, $RETRY >RETRY THE ORDER 
3949 011732 000405 BR 1$ *RETRY UNSUCESSFUL 
3950 011734 004737 021766 JSR PC,LINE6C =PRINT LINE 6C OF ERROR MESSAGE 
3951 011740 004737 022050 JSR PC,LINE? “PRINT LINE 7 OF ERROR MESSAGE 
3952 011744 000207 RTS PC “EXIT 
3953 011746 004737 021774 1$: JSR PC,LINE6D =PRINT LINE 6D OF ERROR MESSAGE 
3954 011752 004737 022050 JSR PC,LINE? “PRINT LINE 7 OF ERROR MESSAGE 
3955 011756 004737 006462 JSR PC,REFMT :REFORMAT THE ERROR SECTOR 
3956 011762 000207 RTS PC = RETURN 
5958 :REPORT ‘DTE' ERROR 
3960 011764 004737 020130 DIEER: JSR PC, SPOTCK :SEE IF ERROR Ai BAD SPOT 
3961 011770 000207 RTS PC sRETURN IF IT 1S 
3962 011772 004737 020266 JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
7963 011776 104414 046452 DISPLY ,EM32 :"DTE* ERROR 
3964 012002 000137 010010 JMP DCKER1 “FINISH PROCESSING THE ‘DTE" ERROR 
6 
3966 :REPORT 'PAR' ERROR 
6 
3968 012006 004737 020266 PARER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
3969 012012 104414 046505 DISPLY ,EM33 “REPORT 'PAR | 
3970 012016 004737 020332 JSR PC,LINE2 “PRINT LINE 2 OF ERROR MESSAGE | 
3971 012022 004737 021044 JSR PC, LINE 3€ >PRINT LINE 3€ OF ERROR MESSAGE 
3972 012026 004737 021414 JSR PC, LINES “PRINT LINE 4 OF ERROR MESSAGE 
3973 012032 004737 023512 JSR PC,INCTOT > INCREMENT TOTAL ERROR COUNT 


on 


| C7 eT ees Sic: 
CZRJDO, RPOK/S/6 MLT-DR LGC MACYTI SOAC1052)__O3-JUL~79 10:41 PAGE 82 


CZRJDD.P11 06-JUN-79 08:32 ROGRAM SEQ 0080 
3974 012036 012737 000010 001250 MOV #B1T03,MASK sERROR MASK 
3975 012044 012737 000003 001252 MOV #3,RETRY sRETRY LIMIT 
3976 012052 004737 015466 JSR PC, SRETRY sRETRY ORDER 
3977 012056 000405 Be 23 sRETRY UNSUCESSFUL 
3978 012060 004737 021766 JSR PC,LINE6C sRETRY SUCESSFUL 
3979 012064 004737 022050 1$: JSR PC,LINE7 :PRINT LINE 7 OF ERROR MESSAGE 
3980 012070 000207 RTS PC sEXIT 
3981 012072 0046737 021774 2$: JSR PC,LINE6D PRINT LINE 6D OF ERROR MESSAGE 
see 012076 000772 RR 1$ :FINISH ERROR MESSAGE 
sons REPORT "1AE" ERROR 
3986 01210C 004737 020266 IAEER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
3987 012104 104414 046624 DISPLY ,EM35 sREPORT 'IAE' 
3988 012110 004737 020332 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
3989 012114 004737 021132 JSR PC,LINE 3F :PRINT LINE 3F OF ERROR MESSAGE 
3990 012120 004737 023512 JSR PC, INCTOT > INCREMENT TOTAL ERROR COUNT 
3991 012124 004737 022050 JSR PC,LINE7 :PRINT LINE 7 OF ERROR MESSAGE 
aad 012130 000207 RTS PC s RETURN 
tae: REPORT 'WLE' ERROR 
3996 012132 004737 020266 WLEER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
3997 012136 104414 046662 DISPLY ,EM36 :REPORT ‘WLE' 
3998 012142 004737 020332 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
3999 012146 004737 023512 JSR PC,INCTOT s INCREMENT TOTAL ERROR COUNT 
4000 012152 004737 022050 JSR PC,LINE7 PRINT LINE 7 OF ERROR MESSAGE 
et 012156 000207 RTS PC :RETURN 
4 
00° REPORT FORMAT ERROR 
4004 
4005 012160 004737 020266 FMTER: JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 
4006 012164 104414 046273 DISPLY ,EM26 :FORMAT ERROR 
4007 012170 00473” 020332 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
4008 012174 004737 020740 JSR PC,LINE3 PRINT LINE 3 OF ERROR MESSAGE 
4009 012200 004737 021414 JSR PC, LINES :PRINT LINE 4 OF ERROR MESSAGE 
4010 012204 032760 040000 000244 BIT WBiTl4, SRPCS2(RO) ;"WCE’ ERROR ALSO ? 
4011 012212 001402 BEQ 1$ :BR IF NOT 
4012 012214 004737 021504 JSR PC,LINES DISPLAY WORDS WHICH CAUSED ‘wCE' 
4013 012220 004737 021604 1$: JSR PC,LINESA PRINT LINE 5A OF ERROR MESSAGE 
4014 012224 004737 023512 JSR PC, INCTOT > INCREMENT TOTAL ERROR COUNT 
4015 012230 004737 022050 JSR PC,LINE? :PRINT LINE 7 OF ERROR MESSAGE 
adie 012234 000207 RTS PC 
4 
4018 :REPORT HEADER COMPARE ERROR 
401 
4020 012236 004737 020266 HCEER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
4021 0122462 104414 046320 DISPLY ,EM27 HEADER COMPARE ERROR 
4022 012246 004737 020332 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
4023 012252 004737 020740 JSR 4¥ LINE3 sale LINE 3 OF ERROR MESSAGE 
4024 012256 004737 021414 JSR LINES RINT LINE 4 OF ERROR MESSAGE 
4025 012262 032760 040000 000244 BIT WBiTle. seecs2tnos :"WCE" ERROR ALSO ? 
4026 012270 901402 BEQ 1$ :BR IF NOT 
4027 012272 004737 021504 JSR PC,LINES DISPLAY WORDS WHICH CAUSED "WCE" 
4028 012276 0047357 021604 1$: JSR PC,LINESA :PRINT LINE 5A OF ERROR MESSAGE 
4029 012302 004737 023512 JSR PC, INCTOT INCREMENT TOTAL ERROR COUNT 

| 





CZRIJDDO, RPOG/5/6 MLT-DR LGC 
CZR Pil 8:32 


JDD.P 06-JUN-79 0 

4030 012306 004737 022050 
4031 012312 004737 006462 
4032 012316 000207 

4033 

4034 

4035 

4036 012320 004737 020266 
4037 012324 104414 046775 
4038 012330 004737 020332 
4039 012334 004737 020740 
4040 012340 004737 021414 
4041 012344 004737 023512 
4042 012350 032760 121400 
4043 012356 001415 

4044 012360 012737 000003 
4045 012366 005037 001250 
4046 012372 004737 015466 
4047 012376 000403 

4048 012400 004737 021766 
4049 012404 000402 

4050 912406 004737 021774 
4051 012412 004737 022050 
4052 012416 000207 

4053 

4054 

4055 

4056 012420 - 004737 020266 
4057 012424 104414 047451 
4058 012430 004737 020332 
4059 012434 004737 020754 
4060 012440 00473? 023512 
4061 012444 004737 023442 
4062 012450 004737 022176 
4063 012454 000207 

4064 ‘ 
4065 

4066 

4067 012456 004737 020266 
4068 012462 104414 046562 
4069 012466 004737 020332 
4070 012472 004737 — 020746 
4071 012476 004737 021414 
4072 012502 004737 023512 
4073 012506 004737 015130 
4074 012512 012737 000003 
4075 012520 012737 000040 
4076 012526 004737 015466 
4077 012532 000405 

4078 012534 004737 021766 
4079 012540 004737 022050 
4080 012544 000207 

4081 012546 004737 021774 
4082 012552 000772 

4083 

4084 


MACY11 30A(1052) 


00024 
00125 


4 
2 


SKIER: JSR PC,LINE1 
DISPLY ,€M50 
JSR PC,LINE2 
JSR PC,LINE3B 
JSR PC, INCTOT 
JSR PC, INCSKI 
JSR PC,LINE7A 
RTS PC 

REPORT WRITE CLOCK FAILURE 

WCFER: JSR PC,LINE1 
DISPLY ,EM34 
JSR PC,LINE2 
JSR PC,LINE3A 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,PRTBAD 
MOV #3,RETRY 
MOV #B1105,MASK 
JSR PC, SRETRY 
BR 2$ 
JSR PC,LINEOC 

1$: JSR PC,LINE? 
RTS PC 

2$: JSR PC,LINEOD 
BR 1$ 


PROCESS DRIVE UNSAFE ERROR 


; IN 
epitts! IBIT13! B119! tad oe 


dD 7 
PAGE &3 


;PRINT LINE 7 OF ERROR MESSAGE 
;REFORMAT THE ERROR SECTOR 
; RETURN 


;PRINT LINE 1 OF ERROR MESSAGE 
;RH11 OR UNIBUS TRANSFER ERROR 
;PRINT LINE 2 OF ERROR MESSAGE 
;PRINT LINE i OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
NCREMENT TOTAL ERROR COUNT 
SRPCS2(RO) 
;BR IF NONE SET 
RETRY LIMIT 
; CLEAR ERROR MASK 
:RETRY THE OPERATION 


;RETURN HERE IF RETRY UNSUCCESSFUL 


3°O.T" .°UPE", "Rar". 


PRINT LINE 6C OF ERROR MESSAGE 


FINISH THE ERROR REPORT 


PRINT LINE 6D OF ERROR MESSAGE 


;PRINT LINE 7 OF ERROR MESSAGE 


ata ds 10:41 
MAIN PROGRAM 
JSR PC,LINE7 
JSR PC,REFMT 
RTS PC 
sPROCESS CONTROL/INTERFACE TRANSFER ERROR 
TRFER: JSR PC,LINE1 
DISPLY ,EM40 
JSR PC,LINE2 
JSR PC,LINES 
JSR at Aro 
JSR PC,IN 
BIT 
BEQ 
MOV #3,RETRY 
CLR MASK 
JSR PC, SRETRY 
BR 1$ 
JSR PC,LINE6C 
BR 2$ 
1$: JSR PC ,LINE6D 
2s: JSR PC,LINE7 
RTS PC 


sPROCESS "SKI" OR ‘OCYL’ ERRORS 


;PRINT LINE 1 OF ERROR MESSAGE 
:"SKI" OR ‘OCYL’ ERROR 
;PRINT LINE 2 OF ERROR MESSAGE 


PRINT LINE 3B OF ERROR MESSAGE 


> INCREMENT TOTAL ERROR COUNT 


; INCREMENT "SKI' OR ‘OCYL' ERROR COUNT 


;PRINT LINE 7A OF ERROR MESSAGE 


("WCF*) 


PRINT LINE 1 OF ERROR MESSAGE 
;REPORT WRITE CLOCK FAILURE 
;PRINT, LINE 2 OF ERROR MESSAGE 


;PRINT LINE 3A OF ERROR MESSAGE 


PRINT LINE 4 OF ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 


;SEE IF BAD SECTOR TO BE PRINTED 


RETRY COUNT 
;ERROR MASK 
RETRY THE ORDER 


RETURN HERE IF RETRY UNSUCESSFUL 


PRINT LINE 6C OF ERROR MESSAGE 


:PRINT LINE 7 OF ERROR MESSAGE 


PRINT LINE 6D OF ERROR MESSAGE 


"MDPE* SET ? 


SEQ 0081 


CZRIDDO, RPOG/ 


CZRJDD.P11 
4086 012554 
4087 012560 
4088 012564 
4089 012570 
4090 012574 
4091 012600 
4092 012606 
4093 012612 
4094 012614 
4095 012620 
4096 012622 
4097 012626 
4098 012632 
4099 
4100 
4101 


4110 012670 
4111 012674 
4112 012700 
4113 012704 
4114 012706 
4115 012712 
4116 012716 
4117 012720 
4118 012724 
4119 012730 
4120 012732 
4121 012736 
4122 012742 
4123 012744 
4124 012750 
4125 012754 
4126 012756 
4127 012762 
4128 012766 
4129 012770 
4130 012774 
4131 013000 
4132 013002 
4133 013006 
4134 013012 
4135 013014 
4136 013020 
4137 013024 
4138 013030 
4139 013032 
4140 013040 
4141 013046 


5/6 MLT-DR LGC 
06-JUN-79 08:32 


004737 020266 


015466 
021766 


021774 
022050 
000207 


105737 001300 


020266 


021414 


047160 
001165 
051640 


022330 
052323 


022330 
001165 


022330 
052323 


022330 
001165 


022330 
052323 


022330 
001165 


022330 
052323 


022359 
001165 
TAH 000770 
2737 000001 
2737 177777 
3737 001414 


MACY11 30A(1052) 


001252 


001300 
001301 
001310 


MAIN PROGRAM 


UNSAF: JSR 
4 


1$: JSR 
2s: JSR 


03-JUL-79 


10:41 


PC,LINE1 
,EM60 
C,LINE2 
PC,LINES 
PC, INCTOT 
#3,RETRY 
PC, SRETRY 


1$ 
PC ,LINE6C 
2$ 
PC,LINE6D 


PC, LINE? 
PC 


.¥ 
PAGE &% 


PRINT LINE 1 OF ERROR MESSAGE 
;REPORT DRIVE UNSAFE 

;PRINT LINE 2 OF ERROR MESSAGE 
;PRINT LINE 3 OF ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 
RETRY COUNT 

RETRY THE ORDER 

SRETRY WAS UNSUCESSFUL 

PRINT LINE 6C OF ERROR MESSAGE 
;CONTINUE WITH ERROR REPORT 
PRINT LINE 6D OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
; RETURN 


REPORT AN ‘UNKNOWN’ DATA PATTERN 


NOMTCH: TSTB 


1$: DISPLY 
2$: DISPLY 


FRSTER 
1$ 


PC,LINE1 
,EM43 
PC,LINE2 
PC,LINE3A 
PC,LINES 
2$ 


PC,LINOCT 
»LINSP 
(R1)+,-(SP) 
PC,LINOCT 


PC,LINOCT 
LINSP 
(RI), -(SP) 
PC, LINOCT 
LSCRLF 
R1,-(SP) 
PC,LINOCT 
eLINSP 
(R1)+,-(SP) 
PC,LINOCT 


PC,LINOCT 
eLINSP 
(R1)+,-(SP) 
PC,LINOCT 


- SCRLF 
#<252.82.>,R1 


R2 

#1,FRSTER 
#-1,FRSTER*1 
CMPLMT LIMIT 


FIRST ERROR IN THE SECTOR ? 

;BR IF NOT OR IF PROCESSING ‘DCKER' 
; TYPE LINE 1 OF ERROR MESSAGE 
>"CAN'T MATCH DATA WITH PATTERN’ 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3A OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 

; CONTINUE PROCESSING ERROR 

:"CAN'T MATCH DATA WITH PATTERN’ 
;CR-LF 

;HEADER FOR DATA PRINTOUT 

;ADDRESS OF WORD 1 

; TYPE WORD 1 

; SPACES 

;ADDRESS OF WORD 
; TYPE WORD 1 


7 CR-LF 

;ADDRESS OF WORD 2 
; TYPE WORD 2 

7 SPACES 


— 


;ADDRESS OF WORD 2 
TYPE WORD 2 


CRLF 
ADDRESS OF WORD 
sTYPE WORD 3 


AN 


SPACES 

; ADDRESS OF WORD 
;TYPE WORD 3 

7 CR-LF 

;ADDRESS OF WORD 4 
TYPE WORD 4 

7 SPACES 

;ADDRESS OF WORD 4 


LA 


ee 4 

sf 

; INCREMENT BUFFER POINTER 

[CLEAR "WORDS TO COMPARE’ COUNT IN Re 


[SET 'NOT FIRST ERROR' INDICATOR 
SET ERROR FOUND INDICATOR 
;RESET THE COMPARE ERROR TYPEOUT L IMI 


SEQ 0082 


aon 


fF 7 
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CZRIOD.P11 06-JUN-79 68:52 MAIN PROGRAM SEQ 0083 
niet 013054 000207 RTS PC ; RETURN | 
be | ;CHECK ERROR BITS IN THE RH11 & RPO4/5/6 REGISTERS 
4146 013056 032760 060000 900234 CKERR: B11 #60000,$RPCS1(RO) ;SEE IF ‘TRE* OR "MCPE" SET 
4147 013064 001015 BNE 1$ :BR 11 EITHER SET 
4148 013066 032760 177400 000244 BIT #177400,$RPCS2(RO) ;SEE IF ERROR BITS IN CS2 SET 
4149 013074 001011 BNE 1$ :BR IF ANY SET 
4150 013076 005760 000250 TST SRPERT(RO) ;ANY BITS SET IN ERI 
4151 013102 001006 BNE 1$ :BR IF ANY SET 
4152 013104 005760 000274 TST SRPER2 (RO) ;ANY BITS SET IN ER2 ? 

4153 013110 001003 BNE 1$ ;BR IF ANY SET 

4154 013112 005760 000276 TST SRPER3S(RO) ;ANY BITS SET IN ERS ? 

4155 013116 001416 BEQ 2$ :BR IF NONE SET 

4156 013120 004737 020266 1$: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
4157 013124 104414 047225 DISPLY ,EM44 ERROR BITS SET, BUT ‘'SC* OR ‘TRE* NOT SET 
4158 013130 004737 020332 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
4159 013134 004737 020740 JSR PC,LINES ;PRINT LINE 3 OF ERROR MESSAGE 
4160 013140 004737 021414 JSR PC,LINES ;PRINT LINE 4 OF ERROR MESSAGE 
4161 013144 004737 923512 JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
4162 013150 004737 022050 JSR PC,LINE? PRINT LINE 7 OF ERROR MESSAGE 
bee 013154 000207 2s: RTS PC ; RETURN 

4164 

bee :CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 

4166 

4167 013156 005760 000236 CKBUS: TST $RPWC CRO) ;CHECK WORD COUNT 

4168 013162 001010 BNE 1$ ;BR 1F NOT ZERO 

4169 013164 016046 000020 MOV $SWROL(RO),-(SP) ;WORD LENGTH 

4170 013170 006316 ASL (SP) ;CHANGE INTO BYTE COUNT 

4171 013172 066016 000006 ADD SBUF (RO), (SP) [ADD THE STARTING LOCATION 

4172 013176 022660 000240 CMP (SP)+,$RPBA(RO) ;BUFFER ADDRESS PROPER ? 

4173 013202 901416 BEQ 2$ ;BR IF OK 

4174 013204 004737 020266 1$: JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 
4175 013210 104414 047033 DISPLY ,EM41 ;BUS ADDRESS OR WORD COUNT INCORRECT 
4176 013214 004737 020332 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
4177 013220 004737 020776 JSR PC, LINE 5D PRINT LINE 3D OF ERROR MESSAGE 
4178 013224 004737 021414 JSR PC,LINES PRINT LINE & OF ERROR MESSAGE 
4179 013230 004737 023512 JSR PC. INCTOT INCREMENT TOTAL ERROR COUNT 
4180 013234 004737 022050 JSR PC, LINE? ;PRINT LINE 7 OF ERROR MESSAGE 
ty 013240 000207 2$: RTS PC 

4 

ty ; COMPARE THE BUFFER 

4184 

4185 013242 132760 000004 000024 CMPAR: BITB MBITO2,$CODE(RO) ;SEE IF READ ORDER 

4186 013250 001001 BNE 1$ ;BR IF IT IS 

4187 013252 000207 RTS PC ; RETURN 

4188 013254 005037 001300 1$: CLR FRSTER CLEAR "FIRST ERROR’ INDICATOR 
4189 013260 032777 000002 165652 CMPARD: BIT #SWO01,aSWR 1S SWITCH 1 SET? 

4190 013266 001401 BEQ 1$ ;BR IF NOT 

4191 013270 000207 RTS PC YES, DON'T COMPARE 

4192 013272 005037 001506 1$: CLR ERCTR ;CLEAR THE ERROR COUNTER 

4193 013276 016001 000006 MOV $BUF(RO),R1 ;BUFFER ADDRESS 

4194 013302 0616037 000020 001312 MOV SWROL(RO),CMCNT ;WORD COUNT TO WORKING LOCATION 
4195 013310 066037 000236 001312 ADD SRPWCC(RO),CMCNT ;CALCULATE ACTUAL WORDS TRANSFERED 
4196 013316 016037 000012 001314 MOV SCYLC(RO),CMCYL ;CYLINDER ADDRESS WORKING LOCATION 
4197 013324 052737 010000 001314 BIS #BIT12,CMCYL SET FORMAT BIT . 


aon 


G 7 
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CZRIDD.P11 06-JUN-79 08:32 MAIN PROGRAM SEQ 0084 | 
4198 013332 016037 000010 001316 MOV SSEC(RO),CMSEC SECTOR & TRACK ADDRESSES TO WORKING LOCNS 
4199 013340 013737 001414 001310 MOV CMPLMT,LIMIT :DISPLAY LIMIT 
4200 013346 005237 001310 INC LIMIT :CONVERT PARAMETER INTO LIMIT VALUE 
4201 013352 012737 177777 001276 CMSTR: MOV f-1 , ZROIND =CLEAR THE "ZERO'S’ INDICATOR 
4202 013360 005037 001302 CLR SAVER sCLEAR THE R1 SAVE aan 
4203 013364 005037 001304 ; CLR SAVER .5 =CLEAR THE RS SAVE WORD 
46204 013370 023760 001312 000022 CMP CMCNT,SSSEC(RO) ;1S BUFFER SIZE GREATER THAN ONE SECTOR ? 
4205 013376 101003 BHI 1$ :BR IF 17 IS 
4206 013400 013702 001312 MOV CMCNT,R2 ;LESS THAN, USE REMAINING BUFFER 
4207 013404 000402 BR 23 
4208 013406 016002 000022 1$: MOV $SSEC(RO),R2 : COMPARE SECTOR 
4209 013412 166037 000022 001312 2%: SUB $SSEC(RO),CMCNT ;DECREMENT WORD COUN’ 
4210 013420 126027 000024 000005 CMPB SCODE (RO) #5 :READ HEADER & DATA? 
4211 013426 001036 BNE CMDAT :BR IF NOT 
4212 013430 023721 001314 CMHED: CMP CMCYL,(R1)4 “CHECK CYLINDER 
46213 013434 001402 BEQ 1$ BR IF COMPARE OK 
4214 013436 006737 013512 JSR PC,5$ sREPORT ERROR | 
4215 013442 023721 001316 1$: CMP CMSEC,(R1)+¢ -COMPARE SECTOR & TRACK | 
6216 013446 001402 BEQ 2$ :BR IF EQ 
6217 013450 004737 013512 JSR PC,5$ -REPORT ERROR 
46218 013454 005721 28: 1S] (R1)+ 21ST KEY WORD ZERO? 
4219 013456 001402 BEQ 3$ :BR IF IT 1S 
4220 013460 004737 013512 JSR PC,5$ -REPORT ERROR 
4221 013464 005721 3$: 1ST (RI)¢ “CHECK 2ND KEY WORD 
4222 013466 001402 BEQ 4$ :BR IF ZERO 
4223 013470 004737 013512 JSR PC,5$ REPORT THE ERROR 
4224 013474 162702 000004 4$: SUB #4,R2 :SUBTRACT HEADER LENGTH FROM SIZE | 
4225 013500 003530 BLE CMPRX “BR IF FINISHED | 
4226 013502 022702 000004 CMP #4,R2 -SEE IF AT LEAST & MORE WORDS °O CHECK 
4227 013506 101125 BH1 CMPRX :BR IF NOT 
4228 013510 000405 BR CMDAT :COMPARE THE DATA PORTION 
4229 013512 005237 001306 5$: INC ERCTR : INCREMENT THE ERROR COUNT 
4230 013516 0047357 013770 JSR PC,CMPRT :REPORT THE COMPARISON ERROR 
4231 013522 000207 RTS PC :CHECK THE REST OF THE HEADER 
4232 013524 006737 014312 CMDAT: JSR PC MATCH :FIND THE PATTERN 
4233 013530 000403 BR 28 :FOUND A PATTERN | 
4234 013532 004737 012634 JSR PC,NOMTCH sRETURN HERE IF NO MATCH WITH PATTERN MADE : 
4235 013536 000456 BR 8$ =BYPASS COMPARE POUTINE 
4236 013540 011405 2%: MOV (RG) ,R5 sADDRESS OF PATTERN ADDRESS IN RG 
4237 013542 012703 000020 MOV #20,R3 -R3 1S PATTERN POS COUNTER 
4238 013546 022125 3$: CMP (R1)4, (R594 = COMPARE BUFFER WITH PATTERN 
4239 013550 001016 BNE 5$ -BR IF NOT EQUAL 
4240 013552 005737 001306 TST ERCTR sERRORS DETECTED ? | 
4241 013556 001406 BEQ 4$ >BR IF NO ERRORS 
4242 013560 032777 000010 165352 BIT #Sw3,aSwR :SwiTCH 3 SET ? | 
4243 013566 001402 BEQ 4$ >BR IF NOT SET 
4244 013570 004737 013770 JSR PC, CMPRI :DISPLAY THE WORD 
4245 013574 005302 4$: DEC R2 :DECREMENT SIZE COUNT 
4246 013576 001436 BEQ 8$ -BR WHEN AT END 
4247 013600 005303 DEC R38 “DECREMENT PATT POS COUNT 
4248 013602 001361 BNE 3$ -BR IF NOT AT END OF PATT 
4249 013604 000755 BR 2$ *RESTART THE PATTERN 
4250 013606 005761 177776 5$: 1S1 -2(R1) :1S MISCOMPARED CHARACTER=0 
4251 013612 001410 BEG 6$ :BR IF YES 
4252 013614 012737 177777 001276 MOV #-1,2ROIND -SET NON-ZERO MISCOMPARED INDCATOR 
4253 013622 005237 001306 INC ERCTR > INCREMENT THE ERROR COUNTER 


on 
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000005 


000026 


000023 


MAIN PROGRAM 


6$: 


7%: 


8$: 


CMPRX: 


PC, CMPRT 
4% 
FRSTER 
7$ 


ZROIND 
R1,SAVER1 
RS,SAVERS 


4% 

ZROIND 

4% 

PC, CMPRT 
4% 

CMCNT 
CMPRX 
SCODE (RO) ,#5 
CMSTR 
CMSEC 
CMSEC #22. 
CMSTR 
CMSEC 
CMTRK 
CMTRK,#19. 
CMSTR 
CMTRK 
CMCYL 


CMSTR 
PC,ENDCMP 
PC 


; TYPE DATA COMPARE ERRORS 


CMPRT: 


1$: 
2$: 


3$: 
4$: 


SR 
DISPLY 


SAVER] 
2$ 
FRSTER 
1$ 


PC 4% 
PC, 8% 
3% 


R1,-(SP) 
R5,-(SP) 
SAVER1,R1 
SAVERS,RS 


. $ 
PC,LINE| 


2EM42 


sREPORT ERROR 

;CONTINUE COMPARE 

sFIRST ERROR? 

;BR IF NOT 

:SET THE ZERO INDICATOR 
;SAVE CURRENT R1 

7SAVE CURRENT R5 

; CONTINUE COMPARE 

;ANY MISCOMPARIONS NOT ZEROS ? 
;BR IF NONE-ALL ERRORS=ZERO 
;REPORT ERROR 

; CONTINUE COMPARING 

;AT END OF BUFFER 

;BR IF AT END 

;SEE IF READ HEADER & DATA 
;BR IF NOT 

; INCREMENT SECTOR 

:SECTOR GREATER THAN MAX ? 
;BR 1F NOT GREATER THAN MAX 
:CLEAR SECTOR ADDRESS 

; INCREMENT TRACK 

s TRACK GREATER THAN MAX ? 
;BR IF NOT GREATER 

sRESET TRACK ADDRESS 

> INCREMENT CYLINDER ADDRESS 
: CONTINUE WITH COMPARE 
;PRINT LAST LINE IF ERRORS 


;PRINT SAVED VALUES ? 
;BR IF NOT 

FIRST ERROR? 

;BR IF NOT 
; INi TIAL MESSAGE INFO 
sPRINT “EMAINDER OF MESSAGE 


>;PUSH R1 ON STACK 

7;PUSH RS ON STACK 

sDISPLAY SAVED R1 

sDISPLAY SAVED R5 

sPRINT INITIAL MESSAGE INFO 
sPRINT SAVED VALUES 

sCLEAR SAVED REGISTER INDICATORS 
;CLEAR THE OTHER ONE 

3;POP STACK iNTO R5 

;;POP STACK INTO RI 

;PRINT REMAINDER OF MESSAGE 
sRETURN 

sFIRST ERROR ? 

;BR IF NOT 

;BR Jt FIRST ERROR AND PROCESSING "DOK" ERROR 
sPRINT LINE 1 OF ERROR MESSAGE 
:DATA COMPARE ERROR 


SEQ 0085 


on 


1 7 
CZRIDDO, RPI4/5/6 MLT=-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE 88 


CZRIDD. Pil 06-JUN-79 08:32 MAIN PROGRAM SEQ 0086 
4310 014104 004737 0203352 JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
4311 014110 004737 020746 JSR PC, LINE SA =PRINT LINE 3A OF ERROR MESSAGE 
4312 014116 006737 021414 JSR PC,LINES sPRINT LINE 4 OF ERROR MESSAGE 
4313 014120 000404 BR és 60 TO TYPE HEADER 
4314 014122 104414 051533 5$: DISPLY ,LINIB sHEADER MESSAGE OF PROCESSING ‘DCK* ERROR 
4315 014126 104414 001165 DISPLY ,SCRLF sCReLF 
4316 014132 104414 051562 6$: DISPLY “LIN NOH sDISPLAY HEADER 
4317 014136 012737 177777 001300 MOV #-1,FRSTER ;SET ERROR FLAG 
4318 014144 000207 7$: RTS PC sRETURN 
4319 014146 005737 001310 8$: TST LIMIT :TYPEOUT LIMIT REACHED ? 

4320 014152 001403 BEQ 9% ;BR IF IT HAS 

4321 014154 005337 001310 DEC LIMIT ;DECREMENT LIMIT COUNTER 
4322 014160 001005 BNE 108% :BR IF NOT AT LIMIT 

4323 014162 032777 000200 164750 9$: BIT #SWO7,aSWR sPRINT ALL DATA COMPARE ERRORS ? 
4324 014170 001001 BNE 10% ;BR IF YES 

4325 014172 000207 RTS PC ; RETURN 

4326 014174 010146 10$: MOV R1,-(SP) ;BUFFER ADDRESS 

4327 014176 162716 000002 SuB #2,(S5P) s ADJUST ADDRESS 

4328 014202 004737 022330 JSR PC,LINOCT sTYPE IT 

4329 014206 1046414 952323 DISPLY ,LINSP 32 SPACES 

4330 014212 016546 177776 MOV -2(R5) ,-(SP) ;PUT GOOD DATA ON THE STACK 
4331 014216 004737 022330 JSR PC,LINOCT sTYPE IT 

4332 014222 104414 052323 DISPLY ,LINSP :2 SPACES 

4333 014226 016146 177776 MOV =2(R1) ,-(SP) ;BAD DATA 

4334 014232 004737 022330 JSR PC,LINOCT sTYPE IT 

4335 014236 104414 001165 DISPLY ,S$CRLF :CR-LF 

its 014242 000207 RTS PC ; RETURN 

4 

it sLAST LINE QF COMPARE ERROR REPORTING 

4 

4340 014244 105737 001301 ENDCMP: TSTB FRSTER+1 sANY COMPARE ERRORS FOUND ? 
4341 014250 001417 BEQ 2$ :BR IF NOT 

4342 014252 005737 001306 TST ERCTR ;SEE HOW MANY ERRORS 

4343 014256 001410 BEQ 1$ >BR IF ONLY CAN'T MATCH PATTERN 
4344 014260 104414 051660 DISPLY ,LINIE ; "NUMBER OF ERRORS=' 

4345 014264 013746 001306 MOV ERCTR,-(SP) sNUMBER OF ERRORS 

4346 014270 004737 022362 JSR PC, LINDEC sTYPE IT 

4347 014274 104414 001145 DISPLY ,$CRLF sCR-LF 

4348 014300 004737 023512 1$: JSR PC,INCTOT > INCREMENT TOTAL ERROR COUNT 
4349 014304 004737 022050 JSR PC,LINE7 sPRINT LINE 7 OF ERROR MESSAGE 
4350 014310 000207 23: RTS PC RETURN 

4351 

4352 

4353 sROUTINE TO MATCH THE DATA WITH A PATTERN 

4354 SCALL: 

4355 g MOV #BUFFER,R1 sBUFFER ADDRESS 

4356 i. JSR PC,MATCH 

4357 : RETURNI sPATTERN ADDRESS IN RG 

yt : RETURN2 :COULDN'T MATCH PATTERN 

4 

4360 014312 010146 MATCH: MOV R1,-(SP) >SAVE R1 ON THE STACK 

4361 014314 012704 000044 MOV M46 ,RG :PATTERN TABLE INDEX 

4362 014320 011601 1$: MOV (SP),R1 sRELOAD R1 

6363 014322 162704 000002 SUB #2,R4 sDECREMENT INDEX 

4364 014326 016405 002762 MOV STNDAT(R4) RS s ADDRESS OF PATTERN ADDRESS 
4365 014332 001411 BEQ 3% BR IF ALL PATTERNS CHECKED AND NO MATCH 


mn 


ee | 


| 
SOO eee 
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MAIN PROGRAR 


2$: CMP 


3$: ADD 
4$: 


#4 ,R3 
(R1)4,(R5)¢ 
i$ 

R3 
2$ 
MSTNDAT,RG 
4% 
#2,2(SP) 


(SP)+,R1 
PC 


&9 


; FOUND 

;NUMBER OF LOCATIONS TO CHECK 

;COMPARE THE BUFFER AGAINST THE PATTERN 
;BR IF NOT EQUAL, TRY NEXT PATTERN 
sFINISHED CHECKING? 


;BR IF NOT FINISHED 
MAKE PATTERN ADDRESS ABSOLUTE 


sExIT 
; INCREMENT RETURN ADDRESS 
ORE RI 


REST 


; RETURN 


;USE ECC TO CORRECT THE DATA ERROR 


ECC MOV 


1$: SUB 


3$: TST 


SRPBA(RO) ,ECSEC 
SRPWC (RO) ,-(SP) 
SWROL (RO), (SP) 
-(SP) 

$SSEC(RO) ,-(SP) 
PC,LINKDV 

(SP) 

1$ 

(SP) 

(SP) ,ECSEC 
SCODE(RO) #5 

2$ 


#8. ,ECSEC 
2$ 
tig y ECSEC 


a4, : 
SREECI(RO), ECBIT 


ECBIT 
ECBIT,ECWRD 
#*C17,ECBIT 
#17,ECWRD 
ECWRD 
ECWRD 
ECWRD 
-LINIOA 
ECWRD,-(SP) 
(SP) 

PC ,$SB2D 
PC,SSUPRS 
,LIN10B 
ECSEC,ECWR 


soe 


D 
SRPBA(RO) ,ECWRD 


ECC2 
SRPECZROD, JECMSKO 
K 


‘BIT OFFSET EQUAL ZERO 

:BR IF IT IS 

:DECREMENT THE BIT OFFSET COUNT 
sSHIFT THE ERROR MASK 

sSHIFT THE LOWER INTO THE UPPER 
sCONTINUE THE SHIFT 


ADDRESS OF LAST LOCN XFERED 

sACT WORDS XFERED (2°S COMP) 

;ADD WORDS REQUESTED 

;CLEAR NEXT STACK LOCN 

SECTOR SIZE 

DIVIDE WORDS XFERED BY SECTOR SIZE 
;PARTIAL SECTOR XFERED ? 

;BR IF NOT 

;CONVERT INTO NUMBER OF BYTES 

; SUBTRACT SECTOR RESIDUE 

;WAS OP READ HEAD & DATA 

;BR IF NOT 

;ADD HEADER SIZE (IN BYTES) BACK IN 
3GO ADJUST THE STACK POINTER 


;SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
ADJUST THE STACK POINTER 

;ECC POSITION COUNT 

ADJUST THE POSITION COUNT 


SLOAD THE WORD COUNT LOCATION 
SAVE THE BIT OFFSET COUNT 

;CLEAR THE BIT OFFSET 

; CHANGE TO BYTE COUNT 

; CHANGE TO BYTE COUNT 

CHANGE TO BYTE COUNT 

; "ERROR BURST BEGINS AT ° 

;PUT THE WORD COUNT ON THE STACK 
;CONVERT TO WORD COUNT FOR MESSAGE 
;CONVERT THE WORD COUNT 

:PRINT IT 

:" IN DATA FIELD OF ERROR SECTOR* 
;FIND THE BEGINNING OF THE ERROR BURST 


7SEE IF BURST WAS IN DATA READ 

R IF IN DATA READ 

NOT IN DATA READ = REPORT IT 
;GET THE ERROR MASK 

:CLEAR THE UPPER MASK WORD 


SEQ 0087 


ee | 


aon 
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30A(1052) O3-suUL-79 10:41 
MAIN PROGRAM 
43: MOV @ECWRD,ECBADO ;SAVE THE INCORRECT WORD 
CLR ECWRD1 sCLEAR SECOND INCORRECT WORD ADDRESS 
MOV ECMSKO,-(SP) :PUT LOWER MASK ON STACK 
BIC @ECWRD, (SP) sCLEAR ERRONEOUS ONE BITS FROM MASK 
BIC ECMSKO,@ECWRD ;CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
BIS (SP)+ @ECWRD ;SET DROPPED BITS 
TST ECMSK1 ;DOES BURST GO INTO NEXT WORD ? 
BEQ ECCI :BR IF BURST ONLY IN ONE WORD 
MOV ECWRD,ECWRDI :DUPLICATE ADDRESS 
ADD #2, CWRDI : INCREMENT ERROR ADDRESS 
CMP SAPBACRO). ECWRD1 ;1S NEXT WORD IN THE BUFFER 
BHI 5$ :BR IF IT IS 
CLR ECWRD1 :CLEAR 2ND WORD ADDRESS 
BR ECCI sPRINT WORD CORRECTED 
5$: MOV @ECWRDI,ECBAD1 ;SAVE THE SECOND BAD WORD 
MOV ECMSK1,-(SP) :PuT THE UPPER MASK ON THE STACK 
BIC @ECWRDI,(SP) sCLEAR ERRONEOUS ONE BITS FROM UPPER MASK 
BIC ECMSK1,@ECWRD1 ;CLEAR ERRONECUS ONE BITS FROM DATA WORD 
BIS (SP)+, @ECWRDI ;SET DROPPED BITS 
ECCI: DISPLY ,LINIOH ; HEADER 
MOV ECWRD,-(SP) ;PUT ECWRD ON THE STACK 
JSR PC,LINOCT s TYPE ECWRD 
DISPLY ,LINSP : SPACES 
MOV ECBADO,-(SP) sPUT ECBADO ON THE STACK 
JSR PC,LINOCT ; TYPE ECBADO 
DISPLY ,LINSP = SPACES 
MOV @ECWRD,-(SP) sPUT QECWRD ON THE STACK 
JSR PC,LINOCT :TYPE @ECWRD 
DISPLY ,LINSP ; SPACES 
TST ECWRD1 sPRINT THE NEXT WORD ? 
BEQ ECCX ;BR IF NOT 
DISPLY ,$CRLF 3s CRLF 
MOV ECWRD1,-(SP) sPUT ECWRD1 ON THE STACK 
JSR PC,LINOCT s TYPE ECWRD1 
DISPLY ,LINSP > SPACES 
MOV ECBAD1,-(SP) ;PUT ECBAD! ON THE STACK 
JSR PC,LINOCT ; TYPE ECBAD1 
DISPLY ,LINSP SPACES 
MOV @ECWRD1,-(SP) sPUT QECWRDI ON THE STACK 
JSR PC,LINOCT sTYPE @ECWRD! 
DISPLY ,LINSP > SPACES 
f ECCX EXIT 
ECC2: DISPLY ,LINIOC sERROR BURST WAS NOT TRANSFERED TO MEMORY 
ECCX: DISPLY ,$CRLF CRLF 
RTS PC ;RETURN 
sROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
PRIBAD: BIT #SW3,aSWR sPRINT THE BAD SECTOR ? 
BEQ 6$ ;BR IF NOT 
MOV $RPBA(RO),R1 :PUT THE END ADDRESS INTC R1 
MOV SWROL(RO),-(SP) ;FIND THE BEGINNING OF THE SECTOR 
ADD $RPWC(RO), (SP) : SUBTRACT THE WORDS NOT TRANSFERED 
CLR -(SP) :MAKE THE UPPER DIVIDEND 0 
MOV $SSEC(RO),-<(SP) sDIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE 
JSR PC,LINKDV sDIVIDE 


SEQ 0088 
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MAIN PROGRAM 


1$: 


5$: 
6$: 


ae TO DO AN RIC = DRIVE SELECTED IN RO 
; CALL: 
;DPB ADDRESS 
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SEQ 0089 | 


;REMANDER = 0 ? 

;BR IF IT 1S = COMPLETE SECTOR TRANSFERED 
;CONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT 
[SUBTRACT IT FROM THE END ADDRESS 

FINISH THE SIZING 


j 
| 

= SUBTRACT FULL SECTOR SIZE FROM END ADDR | 

;WAS OPERATION READ HEADER & DATA ? 

;BR IF NOT 

;SUBTRACK HEADER SIZE FROM ADDR 

;RESTORE THE STACK POINTER 

;PRINT THE HEADER 

3R2 CONTAINS THE WORDS/LINE COUNT 

;PUT THE ADDRESS ON THE STACK 

; TYPE THE ADDRESS 

;PRINTED ALL THE SECTOR ? 

:BR IF ALL PRINTED 

3; SPACES 

;PUT THE DATA ON THE STACK 

s; TYPE THE DATA 

;DECREMENT THE HORIZONTAL COUNT 

+P ‘ NOT AT THE END OF THE LINE 

7 CReL 

;RESTORE THE WORDS/LINE COUNT 

;PRINT WHAT REMAINS IN THE BUFFER 

;RETURN 


a 
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045100 


0451090 


045100 


04510 
04510 


045110 
045100 


on 


RTINCTR: MOVB (RO) ,GENDPB 
MOVB #RTIC,GENDPB+SCOMND ;COMMAND CODE 


JSR RO,RPOS ;DORIVER ENTRANCE 

GENDPB ;0PB ADDRESS FOR ORDER 

BR 1$ DRIVER DIDN'T ACCEPT ORDER 
RTS PC ; RETURN 


ROUTINE TO DO A RECALIBRATE = DRIVE SELECTED IN RO 


ALL: 
MOV #DPB,RO ;DPB ADDRESS 
JSR PC,RECALT ‘ 
RETURN 


MOV #DPB,RO ;DPB ADDRESS 
MOVB MORIVE,GENDPB ;DRIVE ADDRESS 
JSR PC,RECALTO 

RETURN 


RECALT: MOVB (RO) ,GENDPB 
RECALO: MOVB WRECAL,GENDPB+S$COMND ;RELCALIBRATE COMMAND 
1$: JSR RO,RPOS ;DRIVER ENTRANCE 


Be Se Be Be Se Se Se Se Ge Se He 
Oo 
Pe) 


GENDPB ;DPB ADDRESS FOR ORDER 
BR 1% :DRIVER DIDN'T ACCEPT THE ORDER 
2$: TST GENDPB+$TATUS sSEE IF FINISHED 
BEQ 2s :BR IF NOT FINISHED 
RTS PC ;RETURN 
+ Abee THE DRIVE IN RO (OFFSET CODE PRELOADED INTO ‘RPOF') 
3; CALL: 
; MOVB #OFFSET,GENDPB+SFMT ;OFFSET CODE 
; MOV #D0PB,RO 3;DPB ADDRESS 
; JSR PC, OF FST 
. RETURN 


OFFST: MOVE (RO) ,GENDPB ;DRIVE # TO GENERAL DPB 
MOVB #OFFSET,GENDPB*+$COMND ; COMMAND 


1$: JSR RO,RPO4 ;DRIVER ENTRANCE 
GENDPB ;DPB ADDRESS FOR ORDER 
BR 1$ DRIVER DIDN'T ACCEPT ORDER 
RTS PC 

wecrere READ HEADER ROUTINE 

;CALL 

: MOV #DPB,RO ;DPB ADDRESS 

3 MOV WSECTOR,-<SP) ;SECTOR ADDRESS 

: MOV #TRACK ,~(SP) ; TRACK ADDRESS 

; JSR PC ,READDR 

: RETURN 


READHD: MOVB 2(SP),GENDPB+$TRK ; TRACK ADDRESS 
MOVB 4(SP),GENDPB+$SEC ;SECTOR ADDRESS 
MOVB (RO) ,GENDPB ;DRIVE NUMBER 
MOV $RPCC(RO) ,GENDPB+SCYL ;CYLINDER ADDRESS 
MOVB #RDHD , GENDPB+$COMND ; COMMAND 


;MOVE THE yh TO THE GENERAL DPB 


;MOVE THE DRIVE # TO THE GENERAL DPB 


SEQ 0090 
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CZRJDD.P11 06-JUN-79 08:32 MAIN PROGRAM SEQ 0091 
4566 015440 004037 034266 1$: JSR RO,RPOS DRIVER ENTRANCE 
4567 015444 045076 GENDPB DPB ADDRESS FOR ORDER 
4568 015446 000774 ' fee 1$ [DRIVER DIDN'T ACCEPT COMMAND 
4569 015450 005737 045114 2%: TST GENDPB*STATUS ;FINISHED? 
4570 015454 001775 BEQ 23 = BR IF NOT 
4571 015456 012666 000002 MOV (SP)+*,2(SP) [ADJUST STACK FOR RETURN 
4572 015462 005726 TST (SP)¢ 
“bf? 015464 000207 RTS PC s RETURN 
4575 47 be THE PRESENT OPERATION 
4576 CAL 
4577 ; MOV #COUNT, RETRY RETRY COUNT 
4578 ; JSR PC, SRETRY 
4579 : RETURNI :RETRY UNSUCESSFUL 
4580 : RE TURN2 SUCESSFUL RETRY 
4581 : NOTE: IF A DIFFERENT ERROR OCCURS DURING 
rr ; RETRY, THE ROUTINE EXITS TO ‘ERPRCI' 
4584 015466 004737 016456 SRETRY: JSR PC, GODRIV sRE-START ORDER 
4585 015472 005760 000016 1$: TST STATUS(RO) ORDER FINISHED? 
4586 015476 001775 BEQ 1$ :BR IF NOT 
4587 015500 100405 BM] 23 :BR if ERROR 
4588 015502 105237 001253 INCB RETRY+1 zy INCREMENT RETRY COUNT 
4589 015506 062716 000002 ADD #2,(SP) : INCREMENT RETURN 
4590 015512 0004625 BR 5$ 360 TO EXIT 
4591 015514 032760 000200 000016 2$: BIT #BIT7,$TATUS(RO) ;DID ORDER TERMINATE NORMALLY ? 
4592 015522 001430 BEQ 7$ ;BR IF NOT 
4593 015524 005737 001250 TST MASK :1S ERROR MASK 0 ? 
4594 015530 001004 BNE 3$ :BR IF NOT 
4595 015532 005760 000250 TST SRPERI(RO) MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
4596 015536 001014 BNE 6$ sBR IF NOT . 
4597 015540 000404 BR 4$ ; CONTINUE RETRY 
4598 015542 033760 001250 000250 3$: BIT - MASK, $RPER1(RO) ;SAME ERROR? 
4599 015550 001407 BEQ 6$ :BR IF NOT 
4600 015552 105237 001253 4$: INCB RETRY#1- ; INCREMENT RETRY COUNT 
4601 015556 123737 001252 001253 CMPB RETRY,RETRY*1 =DO NE ? ° 
4602 015564 001340 BNE SRETRY :BR IF NOT DONE 
4603 015566 006207 5$: RTS PC RETURN 
4604 015570 004737 022316 6$: JSR PC,LINES REPORT DIFFERENT ERROR 
4605 015574 004737 022050 JSR PC,LINE7 sPRINT LINE 7 
4606 015600 005726 TST (SP) + ‘ADJUST STACK POINTER FOR DIRECT RETURN 
4607 015602 000207 RTS PC :RETURN 
4608 015604 104414 051476 7$: DISPLY ,LIN8M : "DIFFERENT ERROR DURING RETRY* 
609 015610 000137 006732 JMP ERPRC1 REPORT THE ERROR 
46 
4611 sROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
4612 *CALL: 
4613 : MOV #DPB,RO :DPB ADDRESS 
6614 : JSR PC, STARTS. 
4015 ; RETURN 
4616 
4617 015614 032760 000300 000016 STATIS: BIT #BITO7'BIT06,$TATUS(RO) ;CHECK FOR DATA TERMINATION 
4618 015622 001454 , BEQ 3$ :BR IF NOT DATA TERMINATION 
4619 0156246 016037 000240 015756 MOV SRPBA(RO), FACTOR ;STORE THE FINAL BUFFER ADDRESS 
4620 015632 166037 000006 015756 SUB $BUF (RO), FACTOR ;SUBTRACT THE INITIAL ADDRESS 
4621 015640 001434 BEQ 2$ i “BR IF NO DATA TRANSFER 


pyre ena MLT-DR ae 


CZRIDD 06-JUN-79 08: 
4622 015642 006237 015756 
4623 015646 063760 015756 
4624 015654 005560 000050 
4625 015660 132760 000002 
4626 015666 001021 
4627 015670 005737 001424 
4628 015674 001411 
4629 015676 126027 000024 
4630 015704 101005 
4631 015706 066060 000020 
4632 015714 005560 000050 
4633 015720 063760 015756 
4634 015726 005560 000054 
4635 015732 026060 000012 
4636 015740 001405 
4637 015742 062760 000001 
4638 015750 005560 000044 
4639 015754 000207 
4640 
4641 015756 000000 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 015760 010146 
4652 015762 010246 
4653 015764 010346 
4654 015766 013702 001616 
4655 015772 001444 
4656 015774 012701 001620 
4657 016009 026061 000020 
4658 016006 101405 
4659 016010 005302 
4660 016012 001434 
4661 016014 062701 000004 
4662 016020 000767 
46635 016022 011166 000010 
4664 016026 166061 000020 
4665 016034 001407 
4666 016036 006360 000020 
4667 016042 066011 000020 
4668 016046 006260 000020 
4669 016052 000414 
4670 016054 005337 001616 
4671 016060 001411 
4672 016062 005302 
4673 016064 001407 
4674 016066 010103 
4675 016070 062703 000004 
4676 016074 012321 
4677 016076 012521 


MACY} 30A(1052) 


000046 
000024 


000001 
000046 
000052 
000270 
000042 


000002 


000002 


MAIN PROGRAM 


1$: ADD 
2$: CMP 


3$: RTS 
FACTOR: .WORD 


;ROUTINE TO GET 
3s CALL: 


GETBUF: MOV 
M 


1$: CMP 


3$: MOV 


4%: DEC 


5$: MOV 


03-JUL-79 


10:41 


FACTOR 


FACTOR, STRANS (RO) 


STRANS#2(RO) 


#B1T01 ,SCODE (RO). . A 
AUTO WRITE CHECKS BEING PERFORMED 


~ ee 
SCODE(RO) #1 
1$ 


SWROL (RO), STRANS (ROD. 


$TRANS#2(RO) 


FACTOR, SREAD(RO) 


SREAD+2(RO) 


$CYL(RO),SRPCACRO) 
3$ 7B 


#1, SPOSITC(RO) 
pepe chante 
C 


0 
A BUFFER 
#D0PB,RO 


=(SP) 
PC, GE TBUF 


R1,-(SP) 


BUFTBL,R2 
6% 


#BUFTBL+2,R1 
* garetts aie 


R2 

6% 

#4,R1 

1$ 

(R1),10(SP) 

+ Peatcente eines 
4 


$WRDL (RO) 
SWROL (RO), (R1) 
$WRODL (RO) 


(R3)4, (R1)+ 
(R3)+,(R1)+* 


B 8 
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SEQ 0092 


CONVERT TO A WORD COUNT 
;UPDATE WORD COUNT 

;ADD ANY CARRY 

;SEE IF ORDER READ OR WRITE 

RANCH IF ORDER WRITE 


;BR IF NO 
fas i OPERATION AN AUTOMATIC WRITE CHECK ? 
;BR 


NOT 
er Pree WRITTEN 
;ADD A CAR 
; UPDATE THE READ WORD COUNT 
; ADD ANY CARRY 
;DID MID-TRANSFER SEEK OCCUR 


R IF NOT 
> INCREMENT SEEK COUNT 
; ADD CARRY TO UPPER WORD 


;USED FOR WORDS TRANSFERED 


;DPB ADDRESS 
;CLEAR THE STACK 


;BUFFER ADDRESS WILL BE ON THE STACK 
;STACK WILL BE ZERO IF NO BUFFER AVAILABLE 


;SAVE R1 

s SAVE R2 

SAVE R3 

:NUMBER OF SEPARATE BUFFERS 
:BR 1F NONE AVAILABLE 

sFIRST ADDRESS OF ALLOCATION TABLE 
sSEE IF THERE IS A BLOCK LARGE ENOUGH 
;BRANCH IF IT IS 

sDECREMENT TABLE COUNT 

;BR IF THROUGH TABLE 

: INCREMENT TABLE POINTER 

; CONTINUE LOOKING 

;BUFFER ADDRESS TO STACK 
sADJUST BUFFER SIZE 

;BR IF DIFFERENCE IS ZERO 
:CONVERT # WORDS TO BYTES 
sMAKE NEW STARTING ADDRESS 
;RETURN # BYTES TO WORDS 
;RETURN 

;DECREMENT ENTRIES COUNT 

;BR IF ALLOCATION TABLE EMPTY 
sDECREMENT TABLE COUNT 

:BR IF ITEM WERE LAST ENTRY 
sMOVE TABLE POINTER 

sPOINT TO NEXT ENTRY 

sMOVE ITEMS 


——— eee a ae ea cc ne 


an 


C 8 
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CZRJDD.P11 06-JUN-79 08:32 MAIN PROGRAM SEQ 0093 
4678 016100 005302 DEC R2 sDECREMENT TABLE COUNT 
4679 016102 001374 BNE 5$ :CONTINUE IF NOT AT END OF TABLE 
4680 016104 012603 6$: MOV (SP)+,R3 sRESTORE R3 
4681 016106 012602 MOV (SP)+,R2 sRESTORE R2 
4682 016110 012601 MOV (SP)+,R1 sRESTORE R1 
4683 016112 000207 RTS PC RETURN 
4684 
4685 
4686 os TO PUT BUFFER BACK IN TABLE 
4687 CALL 
4688 ; MOV #O0PB,RO ;DPB ADDRESS 
4685 ; JSR PC ,RELBUF 
4690 : RETURN 
4691 
4692 016114 010146 RELBUF: MOV R1,-(SP) sSAVE R1 
4693 016116 012701 001620 MOV #BUFTBL+2,R1 s;BEGINNING OF TABLE 
4694 016122 013702 001616 MOV BUF TBL,R2 sENTRY COUNT 
4695 016126 001424 BEQ 2$ ;BR IF EMPTY TABLE 
4696 016130 016003 000020 MOV $SWRDL (RO) ,R3 s; TRIAL ADDRESS 
4697 016134 006303 ; ASL R3 ;CHANGE TO BYTE COUNT 
4698 016136 066003 000006 ADD $BUF (RO) ,R3 : ADDRESS OF HIGHER ADJACENT BLOCK 
4699 016142 021103 18: CMP (R1),R3 ;UPPER ADJACENT BLOCK 
4700 016144 001424 BEQ 4% ;BR IF YES 
4701 016146 062701 000004 ADD #4 fl s INCREMENT POINTER 
4702 016152 005302 DEC R2 ° sDECREMENT ENTRY COUNT 
4703 016154 001372 BNE 1$ s CONTINUE SEARCHING 
4704 016156 016011 000006 MOV SBUF (RO), (R1) :PUT THE BUFFER BLOCK INTO THE TABLE 
4705 016162 016061 000020 000002 MOV $WRDL(RO),2(R1) ;BLOCK SIZE 
4706 016170 005237 0601616 INC BUF TBL : INCREMENT ENTRY COUNT 
4707 016174 005202 INC R2 : INCREMENT R2 FOR USE LATER 
4708 016176 000414 BR 5$ ;SEE IF A LOWER ADJACENT BLOCK iS IN THE TABLE 
4709 016200 016021 000006 2: MOV $BUF(RO),(R1)* ;BLOCK ADDRESS TO TABLE 
4710 016204 016021 000020 MOV $WRDL(RO),(R1)* ;SIZE TO TABLE 
4711 016210 005237 001616 INC BUF TBL s INCREMENT ENTRY COUNT 
4712 016214 000443 BR 10$ sEXIT 
4713 016216 016011 000006 4$: MOV $SBUF (RO), (R1) sRELEASED BUFFER IS LOWER ADJACENT 
4714 016222 066061 000020 000002 ADD SWRDL(RO),2(R1) ; INCREMENTED SIZE 
4715 016230 010246 5$: MOV R2,-(SP) s SAVE R2 
4716 016232 013702 001616 MOV BUF TBL,R2 SENTRY COUNT 
4717 016236 012705 001620 MOV #BUFTBL+2,R5 ;BEGINNING OF TABLE 
4718 016242 016504 000002 6$: MOV 2(R5),R4 ;BLOCK SIZE (IN WORDS) 
4719 016246 006304 ASL R4 ; CHANGE TO BYTE COUNT 
4720 016250 061504 ADD (R5),R4 sADD BLOCK BEGINNING ADDRESS 
4721 016252 020411 CMP R4,(R1) :R1 STILL POINTS TO INSERTED ENTRY 
4722 016254 001406 BEQ 8$ sLOWER ADJACENT IN TABLE 
4723 016256 062705 000004 ADD #4,R5 s INCREMENT POINTER 
4724 016262 005302 DEC R2 sDECREMENT ENTRY COUNT 
4725 016264 001366 BNE 6$ ; CONTINUE LOOKING 
4726 016266 005726 TST (SP)+¢ sRESTORE STACK POINTER 
4727 016270 000415 BR 10$ 7 END 
4728 016272 012602 8$: MOV (SP)+,R2 sRESTORE R 
4729 016274 066165 000002 000002 ADD 2(R1),2(R5) s INCREMENT LOWER BLOCK LENGTH 
4730 016302 005337 001616 DEC BUF TBL :DECREMENT ENTRY COUNT . 
4731 016306 010105 MOV R1,R5 ;GET READY TO COMPRESS 
4732 016310 062705 000004 ADD #4,R5 > INCREMENT TO NEXT ENTRY 
4733 016314 012521 9$: MOV (R5)4#,(R1)¢ ;COMPRESS TABLE 


on 


CZRIDDO, RPO4/5/6 MLT-DR LGC MACY11 

CZRJDD.P11 06-JUN-79 08:32 
4734 016316 012521 
4735 016320 005302 
4736 016322 001374 
4737 016324 012601 
4738 016326 000207 
4739 
4740 
474) ° 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 016330 104412 
4750 016332 132760 000004 000024 
4751 016340 001044 
4752 016342 016001 000006 
4753 016346 016002 900020 
4754 016352 132760 000001 000024 
4755 016360 001413 
4756 016362 016011 000012 
4757 016366 052721 010000 
4758 016372 016021 000010 
4759 016376 005021 
4760 016400 005021 
4761 016402 162702 000004 
4762 0164906 003421 
4765 016410 005004 
4764 016412 116004 000030 
4765 016416 016405 002762 
4766 016422 012703 000020 
4767 016426 012521 
4768 016430 005302 
4769 016432 001407 
4770 016434 005303 
4771 016436 001373 
4772 016440 012703 000020 
4773 016444 016405 002762 
4774 016450 000766 
4775 016452 104413 
4776 016454 000207 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 016456 010046 
4785 016460 010037 016470 
4786 916464 004037 054266 
4787 016470 000000 
4788 016472 000000 
4789 016474 012600 


RETURN 


SAVREG 
BITB 


1$: MOV 


Se Be Be Be Be oe 
xz 
oO 
< 
@w 


FI LBUF : 


2s: CLR 


3$: MOV 


4$: RESREG 


2 MOV 

: JSR 

: RETURN 

GODRIV: MOV 
MOV 

1$: JSR 

2$: WORD 
HALT 
MOV 


#O0PB,RO 


#BUF ADR, $BUF (RO) 
#PATTERN, $PATTC(RO) 


PC,FILBUF 


+ ‘phi - SCODE (RO? 


$BUF (RO) ,R1 
$WROL (RO) ,R2 


#B11T00,$CODE (RO) 
2$ . 


S$CYL(RO), (RI). 
#BIT12,(R1)¢ 
SSEC(RO),(R1)¢ 
(R1)+ 


SPATTC(RO) RS 
STNDAT(RG) ,R5 
#20,R5 
(R5)4#,(R1)¢ 
R2 


4% 
R3 
3$ 


#20,R3 
STNDAT(R4) , RE 
3$ 


PC 


sSTART THE ORDER FOR THE DPB IN 
ALL: 


#DPB,RO 
PC,GODRIV 


RO,-(SP) 
RO,28 
RO,RPOS 


(SP)+,RO 


dD 8 
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MAIN PROGRAM 
MOV (R5)4,(R1)¢ sMOVE SIZE FIELD DOWN 
DEC R2 ;DECREMENT ENTRY COUNT 
BNE 9$ :BR IF NOT FINISHED 

108: MOV (SP)+,R1 sRESTORE R1 

RTS PC RETURN 


° re THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER) 
LL: 


;DPB ADDRESS 
;LOAD BUFFER ADDRESS INTO THE DPB 
PATTERN CODE 


;SAVE THE REGISTERS 
;SEE IF READ ORDER 
;BR IF READ 
;BUFFER ADDRESS =<. 
POSITIVE WORD COUNT 
;SEE IF WRITE HEADER TYPE ORDER 
;BR IF NOT 
; CYLINDER ADDRESS 


= SET FMT22 BIT 

sMOVE SECTOR & TRACK 

;CLEAR FIRST KEY WORD 

sCLEAR THE SECOND 

;ADJUST THE WORD COUNT 

;BR IF END OF PATTERN 

sCLEAR R4 

sRELATIVE PATTERN ADDRESS 
;PATTERN ADDRESS 

;PATTERN COUNT 

;MOVE THE PATTERN INTO THE BUFFER 
;DECREMENT THE WORD COUNT 
;BR IF DONE (WORD COUNT = 0) 
;DECREMENT THE PATTERN COUNT 
;BR 1F MORE PATTERN 


;RESTORE PATTERN COUNT 

RESTORE THE ADDRESS 

> CONTINUE DISTRIBUTING THE PATTERN 
RESTORE THE REGISTERS 


RETURN 
RO 
:DPB ADDRESS 


; SAVE RO 

sCURRENT DPB ADDRESS 

;CALL THE DRIVE HANDLER 

sDRIVE BLOCK ADDRESS GOES HERE 
SDRIVER REJECTED REQUEST 
sRESTORE RO 


SEQ 0094 


aon 


CZRJDDO, RPOG/5/6 MLT-DR LGC 
CZRIDD.P11 


016534 


016610 


016614 
016620 
016624 
016626 
016632 
016634 
016640 
016642 
016646 
016652 
016656 
016660 
016664 


016670 
016674 
016700 
016702 
016706 
016710 
016714 
016716 
016722 
016726 


06-JUN-7 
062760 


005560 
000207 


004737 
032777 


110560 


016005 


162705 
110560 


016005 


066005 
020527 


9 08:32 


000001 
000040 
000034 


000001 
000044 


032462 
000001 


000010 
027124 
001422 
017256 
032562 
177776 


000004 
000074 


000116 
000120 


000120 
000026 
027124 
000120 
000025 


000026 
000076 


000112 
000114 


000114 
000023 
027124 


000114 
000022 


MACY11 30A(1052) 


000036 
000012 
000042 


162372 


MAIN PROGRAM 


03-JUL-79 


10:41 


— 8 
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; INCREMENT THE OPERATION COUNT 
4 ORDER REQUIRE A CYLINDER CHANGE 


SO RCRERERT SEEK COUNT 
‘ADD ANY CARRY 


;DPB ADDRESS 


;CYCLE THE RANDOM NUMBER GENERATOR 
;SEE IF SwO SET 

:BR IF SET = READ ONLY 
;READ/WRITE SELECTION DIVISOR 
;GET SELECTION VALUE 
;DETERMINE IF READ OR WRITE 
;BR IF READ 

;SELECT A WRITE ORDER 
;CONTINUE WITH THE SELECTION 
>SELECT READ OPERATION CODE 
:MASK OUT ALL BUT BIT 0 

; TABLE OFFSET FOR READ CODE 


ADD #1, SOPERC (RO) 
ADC SOPERC+2(RO) 
CMP SPREVA*2(RO), a 
BEQ %% ;BR 
ADD #1,$POSIT(PO) 
ADC $POSIT+2(RO) 
3$: RTS PC 
+3 Spregig PARAMETERS FOR THE OPERATION 
> CALL: 
: MOV #D0PB,RO 
$ JSR PC, SELPAR 
; RETURN 
SELPAR: JSR PC ,$RAND 
BIT #SW0,aSwWR 
BNE 2$ 
1$: MOV #10,R5 
JSR PC,GETREM 
CMP R5,RATIO 
BHIS 2$ 
JSR PC, RANWRT 
BR 3$ 
es: MOV $LONUM,RS 
BIC #*C1,R5 
ADD #4,R5 
3$: MOVB R5,$NCODE (RO) 


ORDER SELECTION CODE TO CONTROL BLOCK 


GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES "MINSEC* & "MAXSEC' 


RANSEC: ra 


2$: MOVB 


MAXSEC (RO) ,R5 
Nala aprc' 


2 
MINSEC(RO),R5 
1$ 

#22.,R5 

R5 

PC,GETREM 
MINSEC (RO) ,R5 
R5,#21. 

2$ 


#22.,R5 
R5S,$NSEC(RO) 


;GET MAXIMUM SECTOR ADDRESS 

:"MINSEC’ AND "MAXSEC" THE SAME ? 

;BR IF THEY ARE 

;SUBTRACT MINIMUM SECTOR ADDRESS 

7BR IF MAX LARGER THAN MIN 

;CORRECT THE NUMBER 

; INCREMENT DIFFERENCE TO USE AS DIVISOR 
;GET THE RANDOM AUGMENT 

;NEW ADDRESS 

;1S VALUE TOO LARGE ? 


;BR IF NOT 
; CORRECT VALUE 
:STORE SECTOR ADDRESS IN DPB 


GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ‘MINTRK' & 'MAXTRK* 


RANTRK: MOV 


MAXTRK (RO) ,R5 
MINTRK(RO),R5S 


2$ 

*  ailaaahaanen 
#19.,R5 

R5 

PC,GETREM 


MINTRK(RO) RS 
R5,#18, 


sGET MAXIMUM TRACK ADDRESS 

;"MINTRK* AND ‘"MAXTRK' THE SAME ? 

>BR IF THEY ARE 

sSUBTRACT MINIMUM TRACK ADDRESS 

;BR IF MAX LARGER THAN MIN 

sCORRECT THE NUMBER 

s INCREMENT DIFFERENCE TO USE AS DIViSOR 
:GET THE RANDOM AUGMENT 

sNEW TRACK ADDRESS 

s1S VALUE TOO LARGE ? 


on 


CZRJDDO, RPOG/5/6 MLT=-DR LGC 
06-JUN-79 08:52 


CZRIDD.P11 
4846 016732 
4847 016734 
4848 016740 
4849 
4850 
4851 
4852 016744 
4853 016752 
4854 016760 
4855 016762 
4856 016770 
4857 016774 
4858 017000 
4859 017002 
4860 017006 
4861 017010 
4862 017014 
4863 017016 
4864 017022 
4865 017026 
4866 017032 
4867 017034 
4868 017040 
4869 017044 
4870 017052 
4871 017054 
4872 017062 
4873 017070 
4874 017072 
4875 017100 
4876 
4877 
4878 
4879 017102 
4880 017106 
4881 017112 
4882 017114 
4883 017116 
4884 017122 
4885 017124 
4886 017126 
4887 017132 
4888 017134 
4889 017140 
4890 017142 
4891 017144 
4892 017150 
4893 017156 
4894 017160 
4895 017164 
4896 017170 
4897 017172 
4898 017176 
4899 017200 
4900 017204 
4901 017206 


101402 
162705 
110560 


000456 


013705 
005737 


161660 


000023 
000077 


000633 
000002 


‘001457 


000106 
000110 


000110 
001350 
027124 
000110 
901350 
001350 
000100 
000003 


000404 
001404 


001404 


001404 
001420 


027124 


0532462 
000102 
000400 
000001 


000004 
027152 


000004 
001420 
000102 


MACYI1 


001350 
000262 


001350 


000074 


000102 
000404 


000102 


000074 


30A(1052) O3-yuL-79 10:41 
MAIN PROGRAM 
BLOS 2% 
SuB #1S.,R5 
23: MOVB RS, SNTRK(RO) 
MOV #411,,CYLIMT 
BIT #B1101,$RPDT(RO) 
BEQ RANCYL 
MOV #815.,CYLIMT 
RANCYL: MOV MAXCYL(RO) RS 
CMP MINCYL(RO) RS 
BEQ 2$ 
SUB MINCYL (RO) RS 
BPL 1$ 
ADD CYLIMT,R5S 
1$ INC R5 
JSR PC,GETREM 
ADD MINCYL(RO) RS 
CMP CYLIMT,RS 
BHI 23 
SUB CYLIMT,RS 
23: MOV RS, $NCYL(RO) 
CMPB #3, $NCODE (RO) 
BNE RANS $12 
MOV #260. ,SNWRDL (RO) 
CMP MAXOL .#260. 
BHIS RANPAT 
MOV MAXOL , SNWRDL (RO) 
BR RANPAT 
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;BR IF NOT 
; CORRECT VALUE 
;STORE TRACK ADDRESS IN DPB 


;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL" 


& 'MAXCYL' 


;ASSUME AN RPO04/5 
;SEE IF RPO6 
:BR IF NOT 


:CHANGE CYLINDER LIMIT 

;GET MAXIMUM CYLINDER ADDRESS 
;"MINCYL’ AND ‘MAXCYL' THE SAME ? 
;BR IF THEY ARE 

;SUBTRACT MINIMUM CYLINDER ADDRESS 
;BR IF MAX LARGER THAN MIN 

; CORRECT THE NUMBER 

; INCREMENT DIFFERENCE TO USE AS DIVISOR 
;GET THE RANDOM AUGMENT 

NEW CYLINDER ADDRESS 

31S VALUE TOO LARGE ? 

;BR IF NOT 

; CORRECT VALUE 


;STORE CYLINDER ADDRESS IN DPB 
SWRITE HEADER & DATA ? 


= BR 1F NOT 
sCHANGE WORD LENGTH TO 260 FOR WRIHD ORDER 


;CAN A FULL SECTOR BE WRITTEN ? 
:BR IF IT CAN 

> CHANGE TRANSFER SIZE 
: CONTINUE WITH THE SELECTION 


GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN ‘MAXDL’ 


RANSIZ: vat 


2s: JSR 


MAXDL ,R5 
WCSEL 
1$ 


R5 
PC,GETREM 
R 


RANSIZ 
R5,$NWRDL (RO) 
R5,-(SP) 
-(SP) 
#256.,-(SP) 

a senna ae 


#4, (SP) 
PC ,LINKDV 
(SP)+, (SP) 


(SP),#4 ;SEE IF 


4$ 
WCSEL 


3% 
(SP), $NWRDL (RO) - 


:GET BUFFER SIZE 

:;SELECT A RANDOM WORD COUNT ? 

;BR IF NOT 

> INCREMENT THE MAXIMUM SIZE 

sDIVIDE BY MAX VALUE 

:1S THE REMAINDER 0 ? 

7NOT 0, CONTINUE 

s;CYCLE THE RANDOM NUMBER GENERATOR 
s TRY AGAIN 

sWORD LENGTH TO CONTROL BLOCK 

sNEW WORD LENGTH ON STACK FOR CHECK 
sMAKE UPPER DIVIDEND ZERO 

sSECTOR SIZE 1S THE DIVISOR 

>SEE IF NEXT ORDER IS A HEADER ORDER 
;BR IF NOT 

sADD HEADER SIZE TO SECTOR SIZE 
sDIVIDE BUFFER SIZE BY SECTOR SIZE 
sMOV REMAINDER UP THE STACK 

riya LESS THAN 4 


;BR IF NOT 


el eet RANDOM TRANSFER SIZES ? 


R IF YES 
ADJUST WORD LENGTH DOWNWARD 


SEQ 0096 


on 





CZRJDDO, RPOG/5S/6 MLT-DR LGC 
P11 06-JUN-79 08:32 


CZRIDD 


342 
346 


COOCOOOCOCOCOOCOCOCOCOOCOCOOO COO 
ee ee ee ee et et 


000404 


001004 


004757 


000207 


012705 
004737 
005737 


001403 


000207 


012705 


000207 


032462 


000002 


75 
177777 


000004 
027124 
901424 
000002 
000001 
000002 


000024 
000002 


000002 
001416 


000001 
000074 


000020 
027124 


032462 


MACY11 36A(1052) 


000074 


000104 


000024 


000074 
000074 


MAIN PROGRAM 


3$: 


4%: 


4% 

(SP)+ 

PC, SRAND 
RANSIZ 

(SP)¢ 

=f Fim ages 


;GET A RANDOM PATTERN NUMBER 
RANPAT: JSR 


MOVB 


RANXIT: MOV 
RTS 


RANWRT: MOV 


2$: 
3$: 


4$: 
5$: 


PC,GETPAT 
RS SNPATC(RO) 
#- 1, SNEXT(RO) 
PC 


#4 ,R5 
PC,GETREM 


‘AUTOCK 


1$ 
#2,R5 
3$ 


R5,#1 
#2, $CODE(RO) 
2% 


 Tiemahe ts 


#1,R5 
R5,$NCODE (RO) 
PC 


ROUTINE TO SELECT A PATTERN 
GETPAT: MOV 


1$: 


ROUTINE TO GE 


CALL: 


| 


#20,R5 
PC ,GETREM 


G 8 
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; CONTINUE 

sCORRECT THE STACK POINTER 

sCYCLE THE RANDOM NUMBER GENERATOR 
; TRY AGAIN 

;CORRECT THE STACK POINTER 

;SEE IF WRITE DATA 


;BR IF NOT WRITE DATA 


;GET PATTERN CODE 
;MOVE PATTERN CODE TO CONTROL BLOCK 


SET PARAMETERS SELECTED INDICATOR 


; RETURN 
;ROUTINE TO SELECT A WRITE (OR WRITE CHECK) OPERATION 


;WRITE OPERATION SELECTION DIVISOR 
;GET SELECTION CODE 
;ARE WRITE CHECK ORDERS TO BE SELECTED 


:RANDOMLY ? 

;BR IF THEY ARE 

;SET CODE TO EXCLUDE WRITE CHECK ORDERS 
> COMPLETE SELECTION 

sWRITE CHECK SELECTED ? 

;BR IF NOT 

;PREVIOUS WRITE OPERATION ? 

;BR IF PREVIOUS WAS READ OR WRITE CHECK 
SCODE(RO),SNCODE(RO) ;MOVE CODE TO ‘NEXT CODE’ 

— WRITE TO WRITE CHECK 

+t 


7EX1 
CHANGE WRITE CHECK TO WRITE 
;WRITE HEADER ORDERS ALLOWED ? 


;BR IF THEY ARE 

ALTER POSSIBLE WRITE HEADER 
: SETUP "NEXT CODE 

RETURN 


sSELECT PATTERN 

;GET CODE 

WAS PATTERN ZERO SELECTED ? 

;BR IF NOT ZERO 

:CYCLE THE RANDOM NUMBER GENERATOR 
; TRY AGAIN 

;MAKE CODE INTO TABLE INDEX 


THE PREVIOUSLY SELECTED PARAMETER VALUES 


;DPB ADDRESS 
;SELECT THE PARAMETERS 


#DPB,RO 
PC,SELPAR 
PC ,GETPAR 


SEQ 0097 


an 
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4958 017410 010546 GETPAR: MOV R5S,-(SP) AVE RS 

4959 017412 116060 000234 000027 MOvB $RPCS1(RO), sPREVaRO) ;SAVE CURRENT PARAMETERS 

4960 017420 032760 000006 000074 BIT #6, SNCODE (RO) 7SEE IF NEXT OPERATION IS READ OR WRITE 
4961 017426 001007 BNE i$ “BR IF EITHER 

4962 017430 016060 000012 000034 MOV $CYL(RO),SPREVAS3(RO) :SAVE STARTING CYLINDER 

4963 017436 016060 000010 000032 MOV SSEC(RO) ,SPREVAC(RO) : SAVE STARTING SECTOR AND TRACK 
4964 017444 000411 BR 2$ 

4965 017446 004737 022402 1$: JSR PC,READDR ;GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
4966 017452 112660 000033 MOvVB (SP)+,$PREVA+1(RO) ;TRACK ADDRESS 

4967 017456 112660 000032 MOvB (SP)+,$PREVA(RO) ;SECTOR ADDRESS 

4968 017462 016060 000272 000034 MOV SRPCCC(RO) ,SPREVA*2(RO) ;CURRENT CYLINDER 

4969 017470 032777 000100 161442 2%: BIT #S5W06, aSWR :SWITCH 6 SET ? 

4970 017476 001043 BNE 3$ [BR IF SET 

4971 017500 116060 000074 000024 MOvVB SNCODE (RO), SCODE (RO) sLOGICAL CODE FOR OPERATION 
4972 017506 116005 000074 MOVB SNCODE (RO) ,R5 ;LOAD R5 FOR USE AS TABLE INDEX 

4973 017512 116560 001760 000002 MOVB COMTBL (RS) .$COMND (RO) :RPO4 COMMAND CODE 

4974 017520 116060 000075 000030 MOVB SNPATC(RO),SPATTC(RO) ;PATTERN CODE 

4975 017526 016060 000076 000010 MOV SNSEC(RO),$SEC(RO) ; TRACK AND SECTOR ADDRESSES 

4976 017534 016060 000100 000012 MOV SNCYL(RO),SCYL(RO) ;CYLINDER ADDRESS 

4977 017542 016060 0900102 000020 MOV SNWRDL (RO), SWRDOL(RO) ;BUFFER SIZE 

4978 017550 016060 000102 000004 MOV SNWRDL(RO).$WRDM(RO) :WORD COUNT FOR THE RH11 

4979 017556 005460 000004 NEG $SWRDM(RO) =COMPLEMENT IT 

4980 017562 012760 000400 000022 MOV #256.,$SSEC(RO) ; INITIAL VALUE OF SECTOR SIZE 

4981 017570 032760 000001 000024 BIT #1, $CODEC(RO) sHEADER OPERATION ? 

4982 017576 001403 BEQ 3$ “BR IF NOT 

4983 017600 062760 000004 000022 ADD #4, $SSEC(RO) ‘ADD HEADER SIZE 

4984 017606 005060 000104 %$: CLR SNEXTC(RO) sRESET "PARAMETERS LOADED’ INDICATOR 
4985 017612 012605 MOV (SP)+,R5 sRESTORE R5 

bey 017614 000207 RTS PC sRETURN 

4 

4988 sROUTINE TO COMPRESS A LIST 

4989 “CALL: 

4990 : MOV #ADDRS,RI1 : COMPRESS LIST STARTING AT THIS ADDRESS 
4991 s JSR PC, CMPRES 

4992 x RETURN 

4993 

4994 917616 016111 000002 CMPRES: MOV 2(R1),(R1) ;COMPRESS THE TABLE IN RI 

4995 017622 001403 BEQ 1$ “BR WHEN ZERO FOUND 

4996 017624 062701 000002 ADD #2,R1 “INCREMENT R1 

4997 017630 090772 BR CMPRES : CONTINUE COMPRESSING TABLE 

eae 017632 000207 1$: RTS PC sRETURN 

4 

5000 sROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
$001 “CALL! 

5002 5 MOV #DPB,RO ;DPB ADDRESS 

5003 ; MOV #-1,$PACK (RO) s"WRITE PACK" FLAG 

5004 3; OR 

5005 s MOV #1, SPACK(RO) :"READ PACK’ FLAG 

5006 * JSR PC ,WRIPK 

5007 : RE TURN 

5 

5009 017634 004737 032462 WRIPK: JSR PC,$RAND sCYCLE THE RANDOM NUMBER GENERATOR 
5010 017640 005760 000040 TST SOPERC*+2(R0) sSEE IF FIRST OPERATION 

5011 017644 001007 BNE WRIPKI ;BR If UPPER WORD OF COUNTER NOT ZERO 
5012 017646 005760 000036 TST SOPERC (RO) sLOWER WORD ZERO ? 

5013 017652 001004 BNE WRIPK1 sRR JF NOT 1ST OPERATION 


an 
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$014 017654 105760 000026 TS1B SPACK (RO) 7 SEE mo - "R' OR ‘w' 
5015 017660 100505 BM WRIPK3 BR 
5016 017662 000470 BR WRIPK2 7'R' op ERATION 
5017 017664 116000 000234 000027 WRIPK1: MOvB SRPCSI(RO), SPREVO(RO) sSAVE CURRENT PARAMETERS 
$018 017672 004737 022402 JSR PC,READDR 3GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
5019 017676 112660 000033 MOVB (SP)*, SPREVA+1(RO) ; TRACK ADDRESS 
5020 017702 112660 000032 MOvB (SP)+,S$PREVA(RO) ;SECTOR ADDRESS 
5021 017706 016060 000272 000034 MOV SRPCCC(RO) ,SPREVA*2(RO) ;CURRENT CYLINDER 
$022 017714 016060 000242 000010 MOV SRPDAC(RO),SSEC(RO) ;NEW SECTOR & TRACK ADDRESS 
5023 017722 016060 000270 000012 MOV SRPCA(RO),SCYL(RO) ;NEW CYLINDER ADDRESS 
5024 017730 026060 000012 000106 CMP SCYL(RO) ,MAXCYL(RO) ;SEE IF AT END 
5025 017736 103427 BLO 2% :BR IF LESS THAN ‘MAXCYL' 
5026 017740 101004 BKI 1$ BR IF GREATER THAN ‘MAXCYL' 
$027 017742 126060 000011 000112 CMPB STRK(RO),MAXTRK(RO) ;SEE IF AT MAX TRACK 
5028 017750 101422 BLOS 2s ;BR 1F NOT GREATER 
5029 017752 116060 000114 000011 18: MOvVB MINTRK(RO),STRK(RO) ;RESET TRACK ADDRESS 
5030 017760 116060 000120 000010 MOVB MINSEC(RO),$SEC(RO) ;RESET SECTOR ADDRESS 
5031 017766 016060 000110 000012 MOV MINCYL(RO),SCYL(RO) ;RESET CYLINDER ADDRESS 
$032 017774 004737 026724 JSR PC ,EOP2 :DROP THE DRIVE (NORMAL TERMINATION) 
5033 020000 032777 900020 161132 BIT #5W04 ,aSWR :1S SWITCH 4 SET ? 
5054 020006 001003 BNE 2$ ;BR IF SET 
5035 020010 005726 TST (SP)+ s INCREMENT THE STACK POINTER 
5036 020012 000137 005462 JMP MAIN sRETURN DIRECTLY TO ‘MAIN' 
5037 020016 013760 001404 000020 2%: MOV MAXDL,SWRDL(RO) ;BUFFER SIZE 1S MAXIMUM 
5038 020024 013760 001404 000004 MOV MAXDL,$WRDM(RO) ;WORD COUNT 
5039 020032 005460 000004 NEG SWRDM(RO) : CHANGE WORD COUNT TO 2°S COMPLEMENT 
5040 020036 105760 000026 TSTB SPACK (RO) sREAD OR WRITE ? 
5041 020042 100412 BMI WRIPK3 = BR IF WRITE 
5042 020044 012760 000404 000022 wWRIPK2: MOV #260. ,$SSEC(RO) sSECTOR SIZE FOR READ 
5043 020052 112760 000005 000024 MOVB #5, $CODE(RO) : CODE FOR READ HEADER & DATA 
5044 020060 112760 000173 000002 MOVB @RDHD,SCOMND(RO) ;DRIVE CODE FOR OPERATION 
5045 020066 000415 BR WRIPKG SET UP FOR EXIT 
5046 020070 012760 000400 000022 wWRIPK3: MOV #256.,$SSEC(RO) ;SECTOR SIZE 
5047 020076 112760 000062 000024 MOVB #2, SCODE (RO) sCODE FOR WRIDAT 
5048 020104 112760 000161 000002 MOVB #WRTDAT, S$COMND (RO) OP CODE 
5049 020112 004737 017362 JSR PC ,GETPAT ;GET PATTERN CODE 
5050 020116 110560 000030 MOVB RS, SPATTC(RO) sPATTERN CODE 
5051 020122 005060 000104 WRIPK4: CLR $NEXT(RO) sCLEAR "PARAMETER SELECTED’ INDICATOR 
sone 020126 000207 RTS PC RETURN 
5054 ; ROUTINE TO DETERMINE OF ERROR IS AT A LOCATION ON THE PACK DEFINED 
5055 1N THE BAD TRACK/SECTOR TABLE FOR THE DRIVE. 
5056 “CALL: 
5057 . JSR PC ,SPOTCK 
5058 : RETURNI sERROR AT AN ADDRESS IN TABLE 
5059 : RETURN2 :NO TABLE ENTRY FOR ERROR ADDRESS OR 
5060 : sPARAMETER "NOTPRT' IS 0 
5061 
5062 920130 SPOTCK: 
5063 020130 010146 MOV R1,-(SP) >7PUSH R1 ON STACK 
5064 020132 010246 MOV R2,-(SP) >;PUSH R2 ON STACK 
5065 020134 012701 000124 MOV #$BDSEC,R1 s INCREMENT FOR BAD SECTOR TABLE 
6 020140 060001 ADD RO,R1 ;ADD THE BLOCK'S STARTING ADDRESS 
5067 020142 012702 000020 MOV #16.,R2 :BAD SECTOR TABLE SIZE COUNT 
5068 020146 021160 000272 1$: CMP (R1),$RPCC(RO) ;1S CYLINDER IN THE TABLE ? 
5069 020152 001022 BNE 4$ ;BR IF NOT 
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MAIN PROGRAM 
TS1B 3(R1) s TRACK ENTRY ? 
BM] 5$ ;BR IF NOT 
JSR PC,READDR sDECREMENT THE SECTOR/TRACK ADDRESS 
CMPB (SP)+,3(R1) ;COMPARE THE TRACK ADDRESS 
BNE 3$ ;BR IF IT IS NOT EQUAL 
TSTB 2(R1) :1S A SECTOR ADDRESS IN THE TABLE ? 
BPL 23 ;BR IF ONE IS 
TST (SP)¢ ; INCREMENT THE STACK POINTER 
BR 5$ sDISPLAY THE MESSAGE 
2%: CMPB (SP)4#,2(R1) ; COMPARE THE SECTOR ADDRESS 
BNE 4% ;BR IF NOT EQUAL 
BR 5$ :CHECK ‘NOTPRT' 
3$: TST (SP)+ s INCREMENT THE STACK POINTER 
4%: ADD #4,R1 :GO TO THE NEXT LOCATION IN THE TABLE 
TST (R1) ;PAST THE TABLE ENTRIES ? 
BMI 6% sBR IF PAST 
DEC R2 sDECREMENT THE MAXIMUM ENTRY COUNT 
BNE 1$ ;BR IF MORE TO CHECK 
BR 6$ sEND, EXIT 
5$ TST NOTPRT sPRINT THE ERROR ANYWAY ? 
BNE 7% ;BR IF NOT 
MOV #-1,BADSEC :SET THE INDICATOR FOR THE IDENTIFICATION LINE 
. ADD #2,4(SP) > INCREMENT THE RETURN 
MOV (SP)4,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 >;POP STACK INTO R1 
RTS PC sRETURN 
sp eeeecerrerereeeaeeerererererrereereNnaeAeeeneneneneeeeeneNEeeNes 
.SBTTL ERROR MESSAGE GENERATION ROUTINES 


sp eeeereerereeererereresereteeeeereneeenaneeaeeasanaseeeenseseree 


:PRINT LINE 1 OF ERROR MESSAGE: 


> *HH:MM:SS° 

LINE]: BIT #Swi0,aSwrR sSWITCH 10 SET ? 
BEQ 1$ ;BR IF NOT 
TYPE , SBELL :RING THE BELL 

1$: BIT #Swi3,aSwR s INHIBIT TYPEQUT ? 
BFQ 2$ ;BR IF NOT 
DISPLY ,$CRLF > CR-LF 
BR 3$ TEX IT 

2s: JSR PC,STIME sTYPE THE TIME 
DISPLY ,LINSPO SPA CES 

3$: RTS PC sRETURN & TYPE DESCRIPTION 


PRINT LINE 2 OF ERROR MESSAGE 

"PRESENT ORDER = XXXX PREVIOUS ORDER = XXXX' 
;'* ERROR AT BAD TRACK/SECTOR’ 

:"DRV RPCS1 RPCS2 RPDS! RPERI RPER2 . 
‘ RPD 


RPBA RPOA RPAS 
: RPOF RPCA RPCC 

;'BUS ADDRESS OR WORD COUNT NOT CONSISTENT" 
S*RPBA = XXXXKX = RPWC = XXXKKK" 


RPERS 


RPEC1 RPEC2" 
RPMR RPDT' 


SEQ 0100 
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020610 


010346 


012705 


001165 
020472 


050410 
000234 
177701 
020426 
020476 
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177701 
020426 
001766 


001766 


002010 
020476 


001264 
001165 


000040 
050110 
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ERROR MESSAGE GENERATION ROUTINES SEQ 0101 | 
>"BUFFER ADR = XXXXXX SIZE = XXX ACTUAL NMBR WRDS XFRD = XXX" | 
LINE2: | 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV R4,=(SP) 7:PUSH R& ON STACK | 
MOV R5,-(SP) :;PUSH RS ON STACK 
DISPLY ,$CRLF “CRLF | 
CLR 4$ : CLEAR MESSAGE ADDRESS STORAGE 
CLR RG sWORKING REGISTER 
MOV #LIN2C 48 ZADDRESS OF "PRESENT ORDER = * MSG 
MOVB SRPCS1(RO),RG  ;GET THE OPCODE 
BIC #*C76,R4 :SAVE ONLY SIGNIFICANT BITS 
JSR PC,1$ :TYPE THE FIRST MNEMONIC 
TST 5$ 7SEE IF MNEMONIC ENTRY FOUND 
BEQ LINE2A :BR IF NOT 
MOV #LIN2P 4% sADDRESS OF ‘PREVIOUS ORDER = ° MSG 
MOVB SPREVO(RO),R4  ;PREVIOUS OPERATION CODE 
BIC #*°C76,R4 :SAVE ONLY SIGNIFICANT BITS 
JSR PC,1$ TYPE THE PREVIOUS MNEMONIC 
BR LINE2A : CONTINUE 
1$: CLR RS CLEAR THE TABLE INDEX 
2$: CMPB OPTBL(RS) RS :LOOK FOR THE OPCODE 
BEQ 3$ :BR WHEN OPCODE COUNT EQUALS OPCODE 
1STB OPTBL(RS) LOOK FOR END OF TABLE 
BM] 3$ :BR IF END 
INC R5 s INCREMENT THE POINTER 
BR 2$ CONTINUE = NOT END OF TABLE 
3$: ASL R5 :SHIFT INDEX 
ASL RS :SHIFT THE INDEX 
ASL RS sSHIFT THE INDEX 
MOV #MNTBL,5$ sADDRESS OF ASCI] TEXT TABLE 
ADD R5,5$ ADD THE INDEX 
DISPLY sTYPE IT 
4$: -wORD 0 ADDRESS OF ‘PRESENT’ OR "PREVIOUS" MESSAGE 
DISPLY :TYPE THE OPERATION MNEMONIC 
5$: WORD 0 sADDRESS OF MESSAGE 
RTS PC RETURN TO MAIN ROUTINE 
LINE2A: TST BADSEC :PRINT THE BAD SECTOR LINE ? 
BEQ LINE2B :BR IF NOT 
DISPLY ,$CRLF > CR-LF 
DISPLY ,LIN2S ZERROR ADDRESS DEFINED AS BAD AREA | 
LINE2B: DISPLY ,$CRLF LF 
DISPLY ,DH14 STANDARD RP04/5/6 REGISTER HEADER 
DISPLY ,LINSPO TYPE A SPACE 
MOV UNIT,-(SP) :PUT THE DRIVE NUMBER ON THE STACK 
JSR PC ,LINDEC : TYPE DRIVE NUMBER 
DISPLY ,LINSP 7 SPACES 
MOV #OT14,R5 sREGISTER INDEXES 
JSR PC,3$ :PRINT THE REGISTERS | 
BIT #SW05,aSwR >PRINT THE OPTIONAL REGISTERS ? | 
BNE 1$ :BR IF NOT | 
DISPLY ,DH15 
MOV #0T15,R5 :SECOND DATA LINE | 
JSR PC,3$ :PRINT THEM 
DISPLY ,DH16 
MOV #DT16,R5 s THIRD DATA LINE | 
; 


aa 
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5182 
5183 


PPP SSAA SIT 
et et 
CUFWN—OOean 


020736 


020740 
020744 


020746 
020752 


020754 
020760 
020764 


020766 
020772 


06-JUN- 
004737 


004737 
012605 


104414 
000207 


104414 
000517 


104414 
000514 


004737 
104414 
000207 


004737 
000137 


020704 
000100 


000020 
000236 


000006 
000240 
047377 


021414 


000000 
022330 


052323 


001165 


050511 


050527 
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JSR C,3% 
1$: Bil sic, STATUS(RO) 
BEQ 23 
MOV SWRDL (RO) ,- (SP) 
ADD SRPWC(RO), SP) 
ASL (SP) 
ADD $BuF (RO), (SP) 
CMP (SP)+,$RPBA(RO) ; 
BEQ 2% 
DISPLY ,EM46 
DISPLY ,$CRLF 
JSR PC,LINE5D 
JSR PC,LINES 
23: 
MOV (SP)4+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
RTS PC 
3$:- MOV (R5)+,-(SP) 
ADD RO, (SP) 
MOV = @( SP) ,=(SP)4_ 
JSR PC,LINOCT a 
TST (SP)+ 
DISPLY ,LINSP 
TST (R5) 
BNE 3$ 
4$: DISPLY ,$CRLF 
TS PC 


PRINT LINE 3 OF ERROR MESSAGE 
;"ERROR AT CCC TT SS PREVIOUS 


LINE3: DISPLY ,LINM3 
Be LIN3.1 


PRINT LINE 3A OF ERROR MESSAGE 


s*START CYL = CCC END CYL = 
LINE3A: DISPLY ,LINN3 
BR LIN3.1 


PRINT LINE 3B OF ERROR MESSAGE 


>"START Cyc = CCC END CYL = 
LINE3B: JSR PC,LIN3.3 
DISPLY ,$CRLF 
RTS C 


PRINT LINE 3C OF ERROR MESSAGE 
"START Cyt = CCC END CYL = 


LINE3C: JSR PC,LIN3.5 
JMP LIN3.4 


PRINT LINE 3D OF ERROR MESSAGE 
S"RPBA = KXKXXX RPWC = 


ccc 


CCC 


KO0000K" 


;PRINT THE mit 

;DATA ERR 
R IF NOT 

TRANSFER SIZE 

;ADD REMAINING WORD COUNT 

:CONVERT TO AN BYTE INCREMENT 

;BUFFER STARTING ADDRESS 

Po I a ADDRESS ? 
;"BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT" 
> CRLF 


‘RINT LINE 3D OF ERROR MESSAGE 
“PRINT LINE & OF ERROR MESSAGE 


7;POP STACK INTO R5 

3;POP STACK INTO R4 

7;POP STACK INTO R3 

;RETURN TO ERROR PROCESSING ROUTINE 
;PUT THE REGISTER INDEX ON THE STACK 
;ADD DRIVE'S TABLE ADDRESS 

; VALUE 

sTYPE IT 

;CORRECT THE STACK POINTER 

;PRINT 2 SPACES 

:AT END OF LINE ? 


[RETURN 
ADR = CCC TT SS'° 


LINE 3 ENTRANCE 
;FINISH PRINTOUT 


ccc’ 


7LINE 3A ENTRANCE 
FINISH ERROR LINE 
ACTUAL CYL = CCC" 
LINE 3B ENTRANCE 


ACTUAL CYL = CCC TRK = TT" 
:LINE 3C ENTRANCE 


FINISH MESSAGE 


SEQ 0102 
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020776 
004 


021042 


021044 


021130 


021132 
021140 


021202 


021204 


021240 
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032777 


000207 


104414 


104414 
000207 


032777 
001420 
104414 
016046 
004737 
104414 
104414 
016046 
004737 
104414 
000207 


016046 
004737 
104414 
004737 
004737 
104414 
004737 
104414 


000040 
050700 


001165 


050574 
050722 
000011 
050737 
000010 


022362 
001165 


000040 
050670 


001165 


000272 
022362 


050553 
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160000 


1$: 


03-J 


;PRINT LINE 3E 
; "START CYL = 


LINE3SE: DISPLY 
MO 


n 8 
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#SWOS ,aSwR 
1$ 


,LINBS 
SRPBACRO) ,-(SP) 
PC,LINOCT 
-LINWS 
SRPWC (RO) ,-(SP) 
PC,LINOCT 


, SCRLF 
PC 


OF ERROR MESSAGE 


CCC START TRK = 


-LINS3 
SCYL(RO) ,-(SP) 
PC,LINDEC 


-(SP 
STRK(RO), (SP) 
PC,LINDEC 


=(§ 

$SEC (RO), (SP) 
PC,LINDEC 
,SCRLF 

PC 


PRINT LINE 3F OF ERROR MESSAGE 


7 "RPDA = 
LINE3F : 


1$: 


XXXKK 
BIT 
BEQ 


:*ccc TT SS 


LIN3.1: 


MOV 
J 


J 
DISPLY 


X  RPCA = XXXXXK" 


#SW5 ,aSWR 
1$ 


,LINDA3 
SRPDA(RO) .-(SP) 
PC,LINOCT 


SRPCA(RO),-(SP) ; 
PC,LINOCT 

, SCRLF 

PC 


PREV ADR = CCC TT 


SRPCC(RO) ,-(SP) 
PC,LINDEC 


ot 
PC,READDR 
PC ,LINDEC 


3 
PC ,LINDEC 
»LINP3 


;BUFFER ADDR REG CONTENTS 
: CONVERT TO OCTAL AND TYPE IT 


[WORD COUNT REGISTER CONTENTS 
;CONVERT TO OCTAL AND TYPE IT 


Il START SEC ‘= SS" 


: "START CYL = ° 
;MOVE CYL TO STACK 
444 By IN DECIMAL 


7 SPAC 

; "START TRK = ° 
;CLEAR STACK 

; TRACK. TO STACK 

TYPE IT IN DECIMAL 

; SPACES 

;"START SEC = ° 
;CLEAR STACK 

;SECTOR ADDR TO STACK 
TYPE IT IN DECIMAL 


sSWITCH 5 SET ? 

BR IFN NOT 

“PUT SECTOR/TRACK ADDRESS ON THE STACK 
“TYPE IT 

SPACES 


A = = 


RP 
ee CYLINDER ADDRESS ON THE STACK 
£t¥ 


$s' 


:PUT CYLINDER ADDR ON STACK 

7 TYPE IT IN DECIMAL 

:PRINT ' T! 

;DECREMENT TRACK AND SECTOR ADDRESSES 
TYPE TRACK IN DECIMAL 


;PRIN : 
; TYPE SECTOR ADDRESS 
;PRINT ‘PREV ADDR‘ 


SEQ 0103 
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004737 
104414 
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004737 


000207 


022362 
021346 


021350 104414 050626 


050646 


000243 
022362 
327 001165 


021412 000207 


000160 
050754 


032760 
001427 
104414 
016046 
004737 
104414 
016046 
004737 
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006216 
004737 
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000207 


021414 


000006 


022362 
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MOV SPREVA*2(RO),-(SP) ;PREVIOUS CYLINDER 
JSR PC,LINDEC ;TYPE IT IN DECIMAL 
DISPLY ,T sPRINT * T° 
CLR -(SP ;MAKE ROOM ON THE STACK 
MOVB SPREVAST(ROD, (SP) ; PREVIOUS TRACK ADDRESS 
JSR PC,LINDEC ;TYPE IT IN DECIMAL 
DISPLY ,S PRINT ° S* 
CLR -(SP) MAKE ROOM ON THE STACK 
MOVB SPREVA(RO),(SP) ;PREVIOUS SECTOR DDRESS 
JSR PC,LINDEC TYPE IT IN DECIMAL 
DISPLY ,S$CRLF 
1S PC 

s"START CvL = CCC END Crt = CCC’ 

LIN3.3: — ‘3B & 3C* ENTRANCE 


DISPLY ,LINS3 ; 
MOV SPREVA*+2(RO) ,-(SP 
JSR PC,LINDEC 

DISPLY ,LINEN3 


MOV SRPCC(RO),-(SP) 
JSR PC,LINDEC 
RTS PC 
s"ACTUAL CYL = CCC TRK = TT’ 
LIN3.4: DISPLY ,LINA3 
MOV CYLDER,-(SP) 
BIC #B17T12, (SP) 
JSR PC,LINDEC 
DISPLY ,LINT3 
CLR -(SP) ; 
MOVB SRPDA+1(RO),(SP)_ 
JSR PC,LINDEC 
DISPLY ,$CRLF 
$ PC 


PRINT LINE 4 OF ERROR MESSAGE 


LIN 

) ;PREVIOUS CYLINDER 
;TYPE IT IN DECIMAL 
:PRINT "END CYL' 
:PRESENT CYLINDER 
TYPE IT IN DECIMAL 


PRINT “ACTUAL 
ACTUAL CYLINDER 
;CLEAR THE FORMAT BIT 
;TYPE IT IN DECIMAL 


;PRINT TRACK 

;CLEAR STACK WORD 
;PUT TRACK ON STACK 
TYPE IT IN DECIMAL 


7 "BUFT_R ADR = XXXXXX SIZE = XXXX ACTUAL NMBR WRDS XFRD = XXX" 
LINES: BIT #B1T06,$TATUS(RO) ;DATA ERROR ? 
BEQ 1$ ;BR IF NOT 
DISPLY ,LINM4 ;"PRINT BUFFER’ 
MOV $BUF(RO),-(SP) ;BUFFER ADDR ON STACK 
JSR PC,LINOCT :CONVERT TO OCTAL & PRINT 
DISPLY ,LINS4 PRINT ‘SIZE' 
MOV SWROL(RO),-(SP) ;BUFFER SIZE 
JSR PC,LINDEC ;TYPE 1T IN DECIMAL 
DISPLY ,LINX4 ; "ACTUAL NMBR WRDS XFRD = ° 
MOV SRPBA(RO),-(SP) ;VALUE IN BUFFER ADDR REGISTER 
SUB $BUF (RO), (SP) ;SUBTRACT STARTING ADDRESS 
ASR (SP) ;CONVERT INTO A WORD COUNT 
JSR PC ,LINDEC TYPE IT IN DECIMAL 
DISPLY ,$CRLF 7 CR-LF 
1$: RTS PC ; RETURN 


PRINT LINE 5 Of ERROR MESSAGE 


SEQ <4 


™ 
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2320 "GOOD DATA = XXKKXK BAD DATA = XXKNKK = SECT POS = xxx’ 
5352 021504 104414 051040 LINES: DISPLY ,LINDS sPRINT ‘GOOD DATA’ 
5353 021510 162760 000002 000240 SuB #2, SRPBA(RO) ;BACK THE ADDRESS uP 
5354 021516 017046 000240 MOV ASRPBA(RO).-(SP) ;'GOOD' DATA = AT THE BUFFER LOCATION 
5355 021522 004737 022330 JSR PC,LINOCT ;TYPE IT 
5356 021526 104414 051055 DISPLY ,L LIN NBS ;PRINT ‘BAD DATA’ 
5357 021532 016046 000256 MOV SRPDB(RO),-(SP) ;BAD DATA FROM BUFFER 
5358 021536 004737 022330 JSR PC,LINOCT TYPE IT 
5359 021542 016046 000236 MOV SRPWC(RO),-(SP) ;WORD LENGTH ON STACK 
5360 021546 066016 000020 ADD eunes (RG2 (SP) ;MAKE INTO A POSITIVE NUMBER 
5361 021552 005046 CLR -(SP ;UPPER DIVIDEND TO ZERO 
5362 021554 016046 000022 MOV SSSECCROD, -(SP) ;SECTOR SIZE ON THE STACK 
5363 021560 004737 027152 JSR PC,LINKDV sDIVIDE WORDS XFERED BY SECTOR SIZE 
5364 021564 012616 MOV (SP) +, (SP) “MOVE REMAINDER UP THE STACK 
5365 021566 104414 051073 DISPLY ,LINPS PRINT "SECT POS’ 
$366 021572 004737 022362 JSR PC,LINDEC : TYPE THE POSITION 
5367 021576 104414 001165 DISPLY ,$CRLF 
to 021602 000207 RTS PC 
5370 PRINT LINE 5A OF THE ERROR MESSAGE 
337) : "HEADER FROM ERROR SECTOR XXXXXX XXXXXK XXKXXK OOO! 
5373 021604 104414 051111 LINESA: DISPLY ,LINSS :"HEADER CONTENTS OF ERROR SECTOR’ 
5374 021610 013746 054746 MOV CYLDER,-(SP) HEADER POSITION 
5375 021614 004737 022330 JSR PC,LINOCT : TYPE IT 
5376 021620 104414 052323 DISPLY .LINSP > SPACES 
5377 021624 013746 054750 MOV CYLDER*+2,-(SP) ;HEADER POSITION +2 
5378 021630 004737 022330 JSR PC,LINOCT : TYPE IT 
5379 021634 104414 052323 DISPLY ,LINSP > SPACES 
5380 021640 013746 054752 MOV CYLDER+4,-(SP) ;HEADER POSITION +4 
5381 021644 004737 022330 JSR PC,LINOCT sTYPE IT 
5382 021650 104414 052323 DISPLY ,LINSP > SPACES 
5383 021654 013746 054754 MOV CYLDER+6,-(SP) ;HEADER POSITION +6 
5384 021660 004737 022330 JSR PC,LINOCT sTYPE IT 
5385 021664 104414 052323 DISPLY ,LINSP > SPACES 
5386 021670 104414 001165 DISPLY ,$CRLF 
+44 021674 000207 RTS PC 
5389 PRINT LINE 5B OF ERROR MESSAGE 
aR s"RPECT = XXXXXK RPEC2 = XXXXXX" 
5392 021676 104414 051145 LINESB: DISPLY ,LINEPS s*RPEC] = ° 
5393 021702 016046 000300 MOV $RPEC1(RO),-(SP) ;PUT REGISTER CONTENTS ON THE STACK 
5394 021706 004737 022330 JSR PC,LINOCT TYPE IT 
5395 021712 104414 052323 DISPLY /LINSP + SPACES 
5396 021716 104414 051156 DISPLY ,LINEOS ~ RPECZ = * 
5397 021722 016046 000302 MOV pore eceel, -(SP) ;PUT REGISTER CONTENTS ON THE STACK 
5398 021726 004737 022330 JSR PC,LINOC = TYPE 1] 
5399 021732 104414 001165 DISPLY SSCRLF 
2600 021736 000207 RTS PC :RETURN 
4 
5402 :PRINT LINE 6 Of ERROR MESSAGE 
gag? :"SECTOR 1S ECC CORRECTABLE" 
404 
5465 0217460 104414 051170 LINE6: DISPLY ,LINBO6 sECC CORRECTABLE 
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5406 021744 104414 001165 DISPLY ,S$CRLF 
oe 2 021750 000207 RIS PC 
5409 PRINT LINE 6A OF THE ERROR MESSAGE 
gett ;"SECTOR READ CORRECTLY AT OFFSET N' 
5412 021752 104414 051223 LINE6OA: DISPLY ,LINC6 PRINT "READ CORRECTLY AT OFFSET N° 
ott 021756 000411 BR LIN6.1 s TYPE THE REST OF THE LINE 
5415 PRINT LINE 6B OF THE ERROR MESSAGE 
eR ;"SECTOR 1S ECC CORRECTABLE AT OFFSET N° 
5418 021760 104414 051170 ... LINE6B: DISPLY ,LINB6 PRINT "SECTOR IS ECC CORRECTABLE ° 
neh 021764 000406 BR LIN6.1 
5421 PRINT LINE 6C OF THE ERROR MESSAGE 
goss "CORRECTED ON NTH RETRY’ 
5424 021766 104414 051252 LINE6C: DISPLY ,LING6 :*CORRECTED ON NTH RETRY’ 
mH 021772 000414 RR LIN6.2 s TYPE THE REST OF THE LINE 
5427 PRINT LINE 6D OF THE ERROR MESSAGE 
ese :"UNCORRECTABLE AFTER N RETRIES' 
5430 021774 104414 051301 LINE6D: DISPLY ,LINUO6 :"UNCORRECTABLE AFTER N RETRIES* 
ees 022000 000411 faa LIN6.2 FINISH 
3633 ; TYPE THE OFFSET VALUE IN MICRO-INCHES 
5435 022002 006301 LIN6.1: ASL R1 sDOUBLE THE OFFSET TABLE INDEX 
5436 022004 016137 002240 022014 MOV OFMTBL(R1),1$  ;ADDRESS OF OFFSET POSITION MESSAGE 
5437 022012 104414 DISPLY 
5438 022014 000000 1$: -wORD 0 OFFSET VALUE 
5439 022016 104414 001165 DISPLY ,$CRLF 
nw 022022 000207 RTS PC 
3668 RETRY COUNT TYPEOUT 
44 
5444 022024 005046 LIN6.2: CLR -(SP) :CLEAR STACK 
5445 022026 113716 001253 MOVB RETRY+1, (SP) :RETRY COUNT 
$446 022032 004737 022362 JSR PC,LINDEC TYPE IT IN DECIMAL 
5447 022036 104414 051270 DISPLY ,LINR6 > "RETRY 
5448 022042 1046414 001165 DISPLY ,$CRLF 
ae 022046 000207 RTS PC 
4 
5451 PRINT LINE 7 OF THE ERROR MESSAGE 
ert "ORDERS: X¥XXX TOTAL ERRORS: XXX WRDS XFRD:XXXXXXX WRDS READ: XXXKKKK' 
545 
5454 022050 104414 051354 LINE7: DISPLY ,LIN70 sPRINT ORDER COUNT 
5455 022054 012746 000036 MOV WSOPERC,-(SP)  :10 STACK 
5456 022060 060016 ADD RO, (SP) ADD THE BASE ADDRESS 
5457 022062 004737 032660 JSR PC,$DB2D sCONVERT IT 
5458 022066 004737 027466 JSR PC, $SUPRS >PRINT IT 
5459 022072 104414 051433 DISPLY ,LIN7T : TOTAL eenons 
5460 022076 016046 000056 MOV $TOTAL(RO),-(SP)- O STACK 
$461 022102 004737 022362 JSR PC, LINDEC sTYPE IT i DECIMAL 
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104414 
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104414 
012746 


000207 


104414 
004737 
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051445 
000046 


032660 
027466 
051461 
000052 


032660 


5 
100000 


051354 
000036 


032660 
027466 
051364 
000042 


032660 


100000 


051476 
020332 


mm. 
MACY11 30A(1052) O3-JUL-79 10:41 PAGE 109 


156750 


156630 


ERROP MESSAGE GENERATION ROUTINES SEQ 0107 
DISPLY ,LIN?7X sPRINT ‘WRDS XFR' 
MOV #STRANS ,-(SP) ;ADDRESS OF LOW WORD ON STACK 
ADD RO, (SP) 
JSR PC,$DB2D ; CONVERT 
JSR PC, SSUPRS PRINT 
DISPLY ,LIN7R ;"BITS READ‘ 
MOV WSREAD,-(SP) ;LOW WORD ADDRESS 
ADD RO, (SP) m 
JSR PC,$DB2D : CONVERT 
JSR PC,SSUPRS sPRINT 4 
DISPLY ,$CRLF , 
DISPLY ,S$CRLF 
BIT #Swi5,aSwRr :SEE IF "HALT ON ERROR’ = SWITCH 15 
BEQ 1$ ;BR IF NOT 
HALT >SWITCH 15 HALT 
1$: RTS PC 


PRINT LINE 7A OF ERROR MESSAGE 4 
> "ORDERS: XXXXX TOTAL SEEKS=XXXXX TOTAL MISPOS ERR “= XXX TOTAL SKI,OCYL ERR = XXX" 


LINE7A: DISPLY ,LIN7O s"ORDERS = ' 
MOV MSOPERC,-(SP) ;ORDER COUNT INCREMENT 
ADD RO, (SP) ;ADD BASE ADDRESS 
JSR PC,$0B2D > CONVERT THE COUNT 
JSR PC,SSUPRS sPRINT IT 
DISPLY LIN N7P ;"TOTAL SEEKS = ' 
MOV iSPOSiT. -(SP) sTOTAL SEEKS 
ADD RO,(S sDEVICE TABLE ADDRESS 
JSR mc $0820 ; CONVERT THE SEEK COUNT 
JSR PC,$SUPRS sPRINT IT 
DISPLY LIN7M >" TOTAL MISPOS ERR = * 
MOV $h1SPO(RO), -(SP) ;TOTAL ERRORS 
JSR PC,LINDEC TYPE IT IN DECIMAL 
DISPLY SLIN7S :" TOTAL SKI,OCYL ERR = ' 
MOV $SKICRO),-(SP) > CONVERT & PRINT IT 
JSR PC, ,LINDEC sTYPE IT IN DECIMAL 


DISPLY ,$CRLF 
DISPLY ,$CRLF 


BIT #SW15,aSwR ;SEE IF HALT ON ERROR = SWITCH 15 SET 
BEQ 1$ ;BR IF NOT 
HALT ;SWITCH 15 HALT 

1$: RTS PC 


PRINT LINE 8 OF THE ERROR MESSAGE 
: "DIFFERENT ERROR DURING RETRY’ 


LINE8: DISPLY ,LIN&M 
JSR 


PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
RTS PC : 
:OCTAL TYPEOUT ROUTINE 
*CALL? 
: MOV: NUM,-(SP) :PUT THE NUMBER ON THE STACK 
: JSR PC,LINOCT 
? RETURN i 


| 
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062737 000005 
104414 
000000 
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LINOCT: MOV 2(SP),-(SP) 
SR PC ,$SB20 
(SP)+,1$% 
022354 #5.,1% 










0 
(SP)*, (SP) 
( 


110 


;PUT NUMBER IN PROPER LOCATION ON STACK 
;CONVERT THE NUMBER TO OCTAL 

;GET THE ADDRESS OF THE ASCII STRING 
ADDRESS THE LAST 6 ASCII DIGITS 


;TYPE IT 
ADDRESS 
sCORRECT THE STACK 
[RETURN 


—at 


SEQ 0108 


‘ 


a 


. * 
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CZRJOD.P 06-JUN-79 08:32 ERROR MESSAGE GENERATION ROUTINES or SEQ 0109 

5526 
Jeet Ct sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
5528 ;LEADING ZERO SUPRESSION 
5529 CALL: 
5530 : MOV NUM, -(SP) :PUT THE NUMBER ON THE STACK 
5531 ; JSR PC,LINDEC 
at : RETURN 

3 
5534 022362 016646 000002 LINDEC: MOV 2(5P),=(SP) ;SET UP STACK FOR CONVERT 
5535 022366 004737 030066 JSR PC ,$SB2D s;CONVERT IT TO DECIMAL 
5536 022372 004737 027466 JSR PC, SSUPRS sTYPE IT (WITH LEADING ZEROS SUPRESSED) 
5537 022376 012616 MOV (SP)+, (SP) sRESTORE STACK POINTER 
5538 022400 000207 RTS PC 
5539 
5540 ppttereeerererereereeetereneteeeteteteneeeneeeneneeeeeeeteteerene 
5541 
Beet .SBTTL GENERAL SUPPORT SUBROUTINES 
$544 setae ererererererereerertreeetrertrreeenererenneneneeeneeeAETeee 
5545 
5546 sDECREMENT THE SECTOR-TRACK ADDRESS 
5547 > CALL: 
5548 : MOV #DPB,RO ;DPB ADDRESS 
5549 ; JSR PC,READDR 
5550 : RETURN 
5551 ; (SP) CONTAINS THE TRACK ADDRESS 
444 j 2(SP) CONTAINS THE SECTOR ADDRESS 
5554 022402 162706 000004 READDR: SUB #4,SP :DECREMENT THE STACK POINTER 
5555 022406 016616 000004 MOV 4(SP), (SP) sMOVE THE RETURN ADDR DOWN THE STACK 
5556 022412 005066 000004 CLR 4 (SP) :CLEAR STACK FOR SECTOR 
5557 022416 005066 000002 CLR 2(SP) sCLEAR STACK FOR TRACK 
5558 022422 116066 000242 000004 MOVB $RPDA(RO),4(SP) ;INCREMENTED SECTOR ON STACK 
5559 022430 005366 000004 DEC 4(SP) sDECREMENT THE SECTOR ADDRESS 
5560 022434 100015 BPL 1$ :BR IF SECTOR GREATER THAN 0 
5561 022436 012766 000025 000004 MOV #21.,4(SP) > JAM SECTOR ADDRESS TO 21(10) 
$562 022444 116066 000243 000002 MOVB S$RPDA+1(RO),2(SP) ; TRACK ADDRESS 
$563 022452 005366 000002 DEC 2(SP) :DECREMENT TRACK ADDRESS 
5564 022456 100007 BPL 2% ;BR IF IT DIDN'T GO NEG 
5565 022460 012766 000022 000002 MOV #18.,2(SP) :RESET TRACK 10 18(10) 
5566 022466 000403 BR 2$ 
5567 022470 116066 000243 000002 I$: MOVB SRPDA+1(RO),2¢SP) ;TRACK ADDRESS 
tore 022476 000207 2$: RTS PC RETURN 

6 

3m sROUTINE TO CHECK FOR KWil-t OR KWil-P CLOCKS 
5572 022500 012737 177777 001210 CKCLK: MOV #-1,CLKFLG sCLEAR CLOCK AVAILABILITY FLAG 
5573 022506 012737 177777 001206 MOV #-1,PCLOCK sCLEAR KWll-P CLOCK AVAILABILITY FLAG 
5574 022514 012737 022574 000004 MOV MCKCLKILERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
5575 022522 005037 000006 CLR OMERRVECt2 sNEW PSW 
5576 022526 005777 156442 1$7 aS_KCSR sCHECK FOR KwWll-P 
5577 022532 005037 001210 CLR CLKFLG >SET CLOCK AVAILABILITY FLAG 
5578 022536 005037 001206 CLR PCLOCK sSET KWil]P CLOCK FLAG 
5579 022542 013701 001200 MOV SLPVEC,RI sKWil-P VECTOR ADDRESS 
5580 022546 012721 023634 MOV #CLOCK,(R1)* SET UP Kwll-P VECTOR 
5581 022552 012711 000300 MOV #300,(R1) PS = PRI 6 
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000004 


000100 
000004 
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001462 
023012 
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156412 
156402 


000004 


156342 


000004 


001462 


CKCLK1: 


CKCLK2: 


1$: 


CKCLK3: 


STATPR: 


3$: 
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JSR 
RETURN 


#-1667. ,aSLKCSB 
#131 ,aSLKCSR 
CKCLKS 


#4,SP 

#CKCLK2, aveRRVEC’ 
as_Ks 

oe 

$LLVEC,RI 
#CLOCK,(R1)¢ 
#300, (R1) 
#100,a$LKS 
CKCLK3 


START 
#6, A#ERRVEC 
PC 


PC,STATPR 


RO,-(SP) 
R4,-(SP) 
ASNLST 


$ 

PC,SHDTYP 

RG 

RG 
BLKADR(R4) ,RO 


W12 


;LOAD COUNTER BUFFER WITH 16.67 
SET CLOCK = CNT UP, 10US, CONT INT 


RESTORE THE STACK POINTER 
;CHANGE ERROR VECTOR TO CHECK FOR KWllei 
LOOK FOR KWil=L 
SET CLOCK FLAG 
TKWIT=L VECTOR ADDRESS 
7SET UP Kwll-L VECTOR 
sPSwW - PRI 6 
sSET KWil-t INTERRUPT 


;RESTORE THE STACK POINTER 

;'P OR L CLOCK MUST BE ON SYSTEM’ 
;UNDER MONITOR CONTROL ? 

;BR IF NOT 

; ABORT PROGRAM 

sHALT 

; TRY AGAIN 

;RESTORE THE ERROR VECTOR 


sROUTINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED 
ALL: 


s SAVE RO 

sSAVE R4 

sANY DRIVES ASSIGNED ? 

;BR IF NOT 

; TYPE THE HEADING 

;CLEAR THE DRIVE INDEX 

;CHANGE TO INDEX WORDS 

;GET THE DRIVE'S BLOCK ADDRESS 
i RESTORE R4 


R4 
ATABIT(R4),ASNLST 31S THIS DRIVE ASSIGNED ? 
$ BR" IF NOT 


PC,SDETAL 
RG 

R4 #8. 

1$ 
(SP)+,R4 


(SP)+,RO 
PC 


ROUTINE TO TYPE STATISTICS FOR 


s CALL: 


TYPEST: 


MOV 
JSR 
RETURN 


#D0PB,RO 
PC, TYPES! 


RO,-(SP) 
R4,-(SP) 
PC,SHDTYP 
R4 


; TYPE THE PERFORMANCE SUMMARY 
7s INCREMENT THE INDEX 
[FINISHED ? 
;BR IF NOT 
RESTORE R4 
;RESTORE RO 
; RETURN 


AN INDIVIDUAL DRIVE 
;DPB ADDRESS 


> SAVE RO 

; SAVE R& 

; TYPE THE HEADING * 
sCLEAR RG FOR DRIVE NUMBER 


| 


on 
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MOVB (RO) ,R4 
JSR PC, SDE TAL 
MOV (SP)+,R4 
MOV (SP)+,R0 
RTS PC 
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sDRIVE NUMBER 

; TYPE THE STATISTICS 
sRESTORE R4 

;RESTORE RO 

;RETURN 


TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 


3; CALL: 


SHDTYP: 


JSR PC,SHDTYP 
RETURN 

JSR PC,STIME 
JSR R5,TYPRI4 
SCRLF 

JSR R5,TYPRIG 
STATHD 

RTS PC 


; TYPE THE TIME OF DAY 
; TYPE AT PRIORITY 4 


sCR-LF 

; TYPE THE HEADER 
> HEADER 

;RETURN 


; TYPE THE PERFORMANCE SUMMARY DATE LINE 


3 CALL: 


SDETAL: 


MOV MDRIVE,RS ;DRIVE NUMBER 
MOV #DPB,RO ;DPB ADDRESS 
RETURN 
MOV R2,-(SP) s SAVE R2 
MOV RO,R2 ;DPB ADDRESS 
ADD #SOPERC,R2 sFIRST STATISTICAL FIELD 
MOV R4,-(SP) :; SAVE R& FOR TYPEOUT 
>: TYPE DRIVE NUMBER 
TYPOS 3:G0 TYPE--OCTAL ASCII 
-BYTE 2 rs; TYPE 2 DIGIT(S) 
-BYTE 0 >; SUPPRESS LEADING ZEROS 
TYPE »LINSP s SPACES 
MOV $PASSC(RO),-(SP) ;PUT THE PASS COUNT ON THE STACK 
JSR PC,$SB2D sCONVERT IT 
JSR R5,REPLZ sTYPE IT 
WORD 3 TYPE 3 DIGITS 
TYPE »LINSP > SPACES 
MOV R2,- (SP) PUT $OPERC ON THE STACK 
JSR PC,$DB2D sCONVERT IT 
JSR R5,REPLZ s TYPE SOPERC 
~ WORD 6 sTYPE 6 DIGITS 
TYPE »LINSP s SPACES 
ADD #4,R s INCREMENT R2 
MOV R2,-(SP) sPUT SPOSIT ON THE STACK 
JSR PC,$D0B2D s CONVERT IT 
JSR R5,REPLZ sTYPE $POSIT 
. WORD 6 s TYPE 6 DIGITS 
TYPE »LINSP s SPACES 
ADD #4,R2 s INCREMENT R2 
MOV R2,-(SP) >PUT STRANS ON THE STACK 
JSR PC ,$D0B2D Senge $TRANS 
JSR 4% REPLZ TYPE 
WORD 10. TYPE 10 DIGITS 
TYPE »LINSP SPACES 
ADD a4, R2 > INCREMENT R2 


SEQ O111 


OOOO ee 


a 
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10:41 
R2,-(SP) ;PUT SREAD ON THE STACK 
PC ,$0B2D tet $READ 
R5,REPLZ S TYPE 
i0. TYPE 10 DIGITS 
»LINSPO 31 SPACE 
#4 ,R2 ; INCREMENT R2 
#2,R2 : INCREMENT R2 AGAIN 
(R2)+,=-(SP) ;PUT SSOFT ON THE STACK 
PC,$SB2D ; CONVERT $SOFT 
R5,REPLZ ;TYPEOUT S$SOFT 
4 sTYPE 4 DIGITS 
,»LINSPO SPACES 
(R2)+,-(SP) ;PUT SHARD ON THE STACK 
PC,$SB2D ; CONVERT SHARD 
R5.REPLZ ;TYPEOUT SHARD 
4 sTYPE & DIGITS 
»LINSPO ; SPACES 
(R2)+,-(SP) sPUT $SKI ON THE STACK 
PC,$SB2D sCONVERT $SK1 
R5,REPLZ sTYPEOUT $SKI 
4 s TYPE 4 DIGITS 
»LINSPO ; SPACES 
(R2)+,=-(SP) ;PUT SMISPO ON THE STACK 
PC,$SB2D : CONVERT SMISPO 
R5S,REPLZ sTYPEOUT $MISPO 
4 sTYPE 4 DIGITS 
»LINSPO ; SPACES 
STOTAL(RO),-(SP) ;CALCULATE NUMBER OF OTHER ERRORS 
$SOFT(RO),(SP) ;SUBTRACT $SSOFT FROM $TOTAL 
$HARD(RO), (SP) ;SUBTRACT SHARD FROM $TOTAL 
$SKICRO), (SP) sSUBTRACT $SKI FROM $TOTAL 
SMISPO(RO),(SP) ; SUBTRACT SMISPO FROM $TOTAL 
PC,$SB2D :CONVERT ‘OTHER’ COUNT 
R5,REPLZ sTYPE IT 
4 > TYPE 4 DIGITS 
CRLF 
(SP)+,R2 sRESTORE R2 
PC 


;ROUTINE TO INCREMENT $SOFT 
$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 


“NOTE: 


INCSOF: 


1$: 


SROUTINE TO INCREMENT $HARD 
“NOTE: 


BADSEC 


1$ 7B 
eT eer 


1 
$SOFTC(RO) 
PC 


;SEE IF BAD TRK/SEC INDICATOR SET 
R IF I1°S SET, DON'T INCREMENT COUNT 
:1S et of ALREADY AT MAXIMUM ? 


: 1S 
TINCREMENT $SOFT 
; RETURN 


SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10) 


SEQ O112 


' 
0 


OOOO) OO 


CZRJDDO, RPO4/5/6 MLT=-DR LGC 


CZRJOD.P11 


023416 


023440 


023442 


023464 


023466 


023510 


023512 


023534 


023536 


023566 
023572 
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005737 


005260 
000207 


005737 
001006 
026027 
103002 
005260 
000207 


005737 


000207 


005737 
001006 
026027 
103002 
005260 
000207 


005737 


013746 


001264 
000062 
000062 


001264 
000064 
000064 


001264 
000066 
000066 


001264 
000056 
000056 


001210 


001165 
001266 
030066 
027376 


053477 
001270 
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023417 


023417 


023417 


023417 


GENERAL SUPPORT SUBROUTINES 


SEE IF BAD TRK/SEC INDICATOR SET 


INCHRD: TST BADSEC 
BNE 1 ;BR IF IT'S SET, DON'T INCREMENT COUNT 


CMP SHARD(RO) #9999. ;1S SHARD ALREADY AT MAXIMUM ? 
BHIS 1$ ;BR IF IT IS 
INC SHARD (RO) 7 INCREMENT SHARD 

1$: RTS PC ; RETURN 


ROUTINE TO INCREMENT $SK1 
INOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCSK]: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
BNE 1$ :BR IF I11°S SET, DON'T INCREMENT COUNT 
CMP $SKI(RO),#9999. ;1S $SKI ALREADY AT MAXIMUM ? 
BHIS 1$ ;BR If IT IS 
INC $SKI(RO) ; INCREMENT $SK] 
1$: RTS PC RETURN 


ROUTINE TO INCREMENT SMISPO 
:NOTE: $MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 
INCMIS: TST BADSEC sSte if BAD TRK/SEC INDICATOR SET 


BNE 1$ ;BR IF IT'S SET, DON'T INCREMENT COUNT 
CMP rey #9999. 31S SMISPO ALREADY AT MAXIMUM ? 
BHIS 1$ sBR IF IT IS 
INC $MISPOC(RO) s INCREMENT $MISPO 

1$: RTS PC ;RETURN 


:ROUTINE TO INCREMENT STOTAL 
“NOTE: $TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCTOT: TST _ ss€e if BAD TRK/SEC INDICATOR SET 
BNE 1$ BR IF IT'S SET, DON'T INCREMENT COUNT 
CMP STOTAL(RO) #9999. :1S $TOTAL ALREADY AT MAXIMUM ? 
BHIS 1$ :BR IF IT IS 
INC STOTAL (RO) INCREMENT STOTAL 

1$: RTS PC RETURN 


sROUTINE TO TYPE THE TIME 


$TIME: TST CLKFLG :CLOCK ON THE SYSTEM ? 
BNE 1$ ;BR IF NOT 
TYPE -SCRLF 7 CRoLF 
MOV HOUR , = (SP) PUT "HOURS" ON THE STACK 
JSR PC,$SB2D ;CONVERT TO DECIMAL 
JSR R5,REPLZ sTVPE IT 
-WORD 2 sTYPE 2 DIGITS 
TYPE . COLON 2%" 
MOV MINUTE ,=(SP) PUT "MINUTES* ON THE STACK 


SEQ 0113 


| 


CZRIDDO, RPOG/5/6 MLT-DR LGC 
CZRJDO.P11 


023576 


023632 


023634 


023774 


023776 


024032 


004737 


000207 


005337 


000002 


104412 
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030066 
027376 


053477 
001272 


030066 
027376 


001274 
001212 
001272 
000074 
001272 
001412 
001270 
000074 
601270 
001266 
001747 


001266 


001410 
001410 


177777 
001412 


001440 
024030 
000001 
053610 


MACY11 30A(1052) 


001274 
001272 


001270 


001266 


001412 
001214 


024030 


GENERAL SUPPORT 


1$: RTS 


03-yUL-79 


10:41 
SUBROUTINES 


PC ,$SB20 
ne 


, COLON 
SECOND ,-(SP) 
PC ,$SB2D 
erm 


PC 


;CLOCK HANDLER ROUTINE 


CLOCK: DEC 


2$: RT] 


; COMMAND DECODE 
3 CALL: 
MOV 


JSR 
RETURNI 
RETURN2 


SIXTEE 

1$ 
H7,SIXTEE 
SECOND 

#60. ,SECOND 
1$ 

SECOND 
INTRVL4+2 


MINUTE 
~ ai 


23 
INTRVL,INTRVL #2 
2% 

#-1,STATIN 
INTRVL#2 
ROUTINE 
#-1,CFLAG 
PC,KSR 


ORDERS 


K 9 
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=CONVERT TO DECIMAL 
“TYPE IT 

;TYPE 2 DIGITS 
“PUT SECONDS ON THE STACK 
; CONVERT TO DECIMAL 


iT 
‘TYPE 2! DIGITS 


BR IF SOME ARE 


;CLEAR THE LOOP COUNTER 

:PROCESS THE KEYBOARD REQUEST 
;COUNT THE TIMES THROUGH THE LOOP 
;BR IF NOT ENOUGH 

"SYSTEM BUSY 
PROCESS ANY COMPLETED DRIVES 


;LOOP COUNTER 


SAVE THE REGISTERS 


; INCREMENT THE 1/60 SECOND COUNTER 
7BR IF A SECOND NOT COUNTED 
RESTORE THE VALUE 

;COUNT THE SECOND 

;AT MAXIMUM ? 
;BR IF NOT 
;CLEAR THE SECOND'S COUNTER 

; COUNT THE PERFORMANCE SUMMARY INTERVAL 
;COUNT THE MINUTE 

;AT MAXIMUM ? 
;BR IF NOT 
:CLEAR THE MINUTE*S COUNTER 
;COUNT THE HOURS 
7; AT MAXIMUM 

;BR IF NOT 
;CLEAR THE HOURS 
717 MS ON THE STACK 

;DRIVER TIMER ROUTINE 

;DISPLAY THE PERFORMANCE SUMMARY ? 


;BR IF NOT 

:DISPLAY INTERVAL FINISHED ? 
;BR IF NOT 
7SET PERFORMANCE SUMMARY DISPLAY FLAG 
;CLEAR THE PERFORMANCE INTERVAL COUNTER 
; RETURN 


:"CFLAG' IS NORMALLY SET BY THE TTY SERVICE 
;ROUTINE IN INTERRUPT MODE 


SYSTEM BUSY RETURN 
RETURN AFTER KEYBOARD SERVICED 


;ANY OPERATIONS ACTIVE ? 


SEQ 0114 


CZRIJDDO, RPOG/5/6 MLT-DR LGC 
CZRIDD.P11 


024034 


024266 
024272 


024274 


024324 


06-JUN-79 


012737 


08:32 
000200 
2 


000101 
000067 
000060 


177770 
000124 


024640 
000104 
024650 
000123 
024756 
000127 
000001 
025226 
000122 
025240 
053301 
000002 
154666 


000100 
177776 


000101 


052521 
000001 
033416 


MACY11 30A(1052) 
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177776 


177777 


177777 


177777 


177777 
154724 


177777 


154656 


026534 
001462 


03-JuUL-79 


10:41 


MOV #PR4,PS 


tL 9 
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SET PRIORITY TO 4 
CLEAR THE "CONTROL C° FLAG 
TYPE THE TIME 


CLR CFLAG 
JSR PC ,STIME 
TST astKB 
TYPE ~ENTCOM 
RDLIN 
MOV (SP)+,R5 
TST CFLAG 
BNE 7% 
INC R5 
CMPB #'A, (RS) 
BEQ 1$ 
CMPB (R5),a@'7 
BHI 6$ 
CMPB (R5),#'0 
BLO 6$ 
BICB #*C7,(R5) 

1$ CMPB @°T,-10R5) 
BNE 2$ 
JSR PC,NEWASN 
BR 7$ 

23: CMPB #'D,-10R5) 
BNE 3$ 
JSR PC ,DEASGN 
GR 7$ 

3$: CMPB a's -10(R5) 
BNE 4 
JSR PC,SCMND 
BR 7$ 

4$: CMPB M'W,-1 (RS) 
BNE 5$ 
BIT #Sw0,aSwWR 
BNE 6 
JSR PC ,DATAPK 
BR 7$ 

$6: CMPB #"R,-1(R5) 
BNE 6$ 
JSR PC, REDAPK 
BR 7$ 

6$: TYPE » INVLD 

7$: RESREG 
ADD #2, (SP) 
TST as tKB 
BIS #B1106,a$TKS 
CLR PS 
RTS PC 


ROUTINE TO PROCESS THE ASSIGN REQUEST ('T', ‘R', 


sASSIGN ALL DRIVES? 
:BR IF ALL gig 


ASSIGN: CMPB 
BEQ 
ASGN1: MOVB 


RG 
#UNTASN, ASNMSG 
#1,R3 
ATABIT(RG), asnisi 


CLEAR ANY GARBAGE IN THE TTY BUFFER 
;"ENTER COMMANDS‘ 

;READ THE KEYBOARD 

;GET ADDRESS OF INPUT STRING 

;CHECK THE CONTROL C FLAG 

EXIT IF ‘CONTROL C° ENTERED 

;POINT TO a CHARACTER 


TO AN 


NOT E 


Q 
rASSIGN DRIVE FCR TEST 


sEXIT 


70 
:BR 
:DEA 
;EXI 


to *p* 7 
IF NOT EQ 
mace DRIVE 


7£Q TO 'S' 


sTYPE STATISTICS 


IF NOT EQ 


sEXIT 


3&0 
BR 


i1S SWITCH 0 SET ? 
CAN'T DO ‘Ww’ COMMAND 
:WRITE A DATA PACK 


:READ A DATA PACK 


ZEXIT 


TYPE ‘INVALID COMMAND' MESSAGE 
TORE RO = R5 

TINCREMENT THE RETURN ADDRESS 
;CLEAR THE TTY BUFFER 

;SET TTY INTERRUPT ENABLE 

;SET PRIORITY BACK 10 ZERO 


sRES 


TO ‘w' 
IF NOT EQ 


IF SET, 


IF NOT EQ 


; RETURN 


;PuT 


DRIVE @ 


IN R 
: ‘DRIVE ASSIGNED" “HE SAGE ADDRESS 


LOAD R3 FOR 1 
T I$ 


T 15 
tt GREATER THAN AN ASCII 7 ? 
IT J 
ere LESS THAN AN ASCII 0 ? 
rs i LOWER 3 BITS IF CHAR NOT ‘A* 


UNI 
DRIVE ALREADY ASSIGNED ? 
:BR IF I 


SEQ 0115 


a a 


CZRJDDO, RPOG/5/6 MLT-DR LGC 


CZRIDD D.P11 


024326 


024626 


06-JUN-79 08:32 


005704 


000403 


052605 
000011 


024434 
026514 


000011 
000001 
000007 


000010 
024434 
024424 
024416 
024552 
033416 
033414 
045076 


015332 
033302 


001740 


001216 
001216 


000004 
052624 
033312 


052547 
052570 


MACY11 gt ge 


026534 
000041 


000041 


001462 


001506 


000070 


000026 


026534 


026534 
026534 


03-JUL-79 
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a 9 
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RG s TRYING TO ASSIGN DRIVE 0 ? 

1$ 7BR IF NOT 

WNOTAVL,ASNMSG ; ‘NOT AVAILABLE’ MESSAGE ADDRESS 
#11,41 ;SEE If LOADED FROM AN RPO/4/5/6 
2% <BR IF RPO4/5/6 IS THE LOAD DEVICE 
PC, ASGN5 : SEE IF DRIVE ON THE SYSTEM 
aaa at HERE IF DRIVE NOT AVAIL 

3;Ex 

#11,41 ;LOADED FROM AN RPO4/5/6 ? 

$ ;BR IF NOT 

#1,R4 sSTART WITH DRIVE 1 

#7. ,R3 ;SETUP FOR ONLY 7 DRIVES 

2% ; CONTINUE 

RG sSTART WITH DRIVE 0 

#8.,R3 :DRIVE COUNT FOR 8 DRIVES 

PC, ASGN3 ;ASSIGN ALL UNASSIGNED, AVAIL DRIVES 
7 sDRIVE NOT Ot SYSTEM 

; RETURN 

vss, — ;PUT RETURN ADDRESS ON THE STACK 
ASGN s;LOOK FOR MORE DRIVES 

ATABIT(RS) ASNLST sDRIVE ALREADY ASSIGNED ? 

ASGNG :BR" If 17 1S 
DTUW sDAITA TRANSFER UNDER WAY ? 

1$ sBR if 17 1S 
R4,GENDPB ;DRIVE NUMBER 
PC,RECALO sRECALIBRATE DRIVE 
DRVSTA(R4) sDRIVE AVAILABLE? 

ASGN7 ;BR IF DRIVE OFFLINE OR NONEXISTENT 
ASGN6 ;BR IF DRIVE UNSAFE 
R4 sMAKE R4& INTO WORD INDEX 
BLKADR(R4) ,NEWUNT(R4) ;DPB ADDRESS 
BLKADR(R4) ,RO ;PUT BLOCK'S ADDR INTO RO 
PC,CLRDPB sCLEAR BLOCK FOR DRIVE JUST ASSIGNED 
PC,DRVPRM sGET THE DRIVE’S ADDRESS LIMITS 
PC,GETID ;GET DRIVE I.D. 
PC,GETADR :GET BAD SECTOR ADDRESSES 
#1,S$PASSC(RO) ;PRESET PASS COUNT TO 1 
PACK sWRITE DATA PACK ? 

2$ ;BR IF NOT 
PACK,SPACK(RO) ;SET READ/WRITE DATA PACK INDICATOR 
R4 ;RESTORE DRIVE ADDRESS 


R3 :DECREMENT DRIVE COUNT 


ASGNS ;BR IF FINISHED 

& ; INCREMENT DRIVE NUMBER 

ASGNS ; CONTINUE 

#4, (SP) > INCREMENT RETURN 

PC RETURN 

re see MESSAGE ADDRESS 

DRVTYP(R4) ;DRIVE PRESENT? 

1$ ;BR IF NOT 

2$ ;BR IF DRIVE OFFLINE 

a 1 Tal OF "NOT RP04/5/6* MSG 

ice tation Tt ps OF "NOT PRESENT* MSG 
7 EX 


SEQ | 


/ 


, 


’ 


CZRIDDO, RPO4/5/6 MLT-DR LGC 
CZRIDD.P11 08:32 


024630 
024636 


024640 
024644 


024650 


024754 


024756 


025054 


06-JUN-79 


012737 
000207 


005037 
000137 


005004 


000744 


005004 


004737 


052456 


001216 
024274 


000101 
000001 
033416 
033416 
001740 


000101 


052477 
026514 


000010 


000101 
033416 
001740 


022764 


052477 
026514 


000010 
033416 


022702 
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026534 


001462 
001462 
001464 


026534 


001462 


026534 


001462 


GENERAL SUPPORT SUBROUTINES 


2$: MOV MUNTOFF,ASNMSG ;ADDRESS OF ‘DRIVE OFFLINE* MESSAGE 
3$: RTS PC ERROR RETURN 
:"T' COMMAND (ROUTINE TO ASSIGN A DRIVE) 
NEWASN: CLR PACK CLEAR ‘Ww’ COMMAND INDICATOR 
JmP ASSIGN ;GO TO THE ASSIGN ROUTINE 


:"D* COMMAND (ROUTINE TO DEASSIGN A DRIVE) 
DEASGN: CLR RG 
PB 


Cm #°'A, (RS) ;DEASSIGN ALL DRIVES ? 
BEQ 5$ 7BR IF YES 
MOV #B1T00,R3 SET R3 FOR ONE UNIT 
MOvB (R5), RG GET DRIVE NUMBER 
1$: BITB ATABIT(R4), ASNLST sDRIVE ASSIGNED ? 
BEQ 3$ R IF NOT 
BICB tapes, ASNLST sDELETE THE DRIVE FROM THE ASSIGNED LIST 
ASL MAKE ADDR INTO A WORD INDEX 
oa BLKADR(RA), DUNIT(R4) ;PUT ADDRESS IN DEASSIGN LIST 
AS 
23: DEC Rg ;ANY MORE DRIVES ? 
BEQ 4% [BR 1F NOT 
INC R4 
BR 1$ 
3$: CMPB #'A, (RS) ;DEASSIGN ALL DRIVES ? 
BEQ 2¢ ;BR IF YES 
MOV MUNTNOT,ASNMSG ;ADDR 4 "NOT ASSIGNED’ MESSAGE 
JSR PC,ASNERR ;REPORT IT 
4%: RTS PC 
5$: MOV #8. ,R3 ;SET UNIT COUNT TO 8 
BR 1$ 
:'S" COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 
SCMND: CLR RG 
CMPB #°A, (RS) sALL STATISTICS ? 
BEQ 2$ :BR IF YES 
MOVB (R5) GET DRIVE NUMBER 
BITB atapitines. ASNLSI ;SEE IF DRIVE ASSIGNED 
BEQ 1$ ;BR IF NOT 
ASL RG :MAKE DRIVE ADDR INTO WORD INDEX 
MOV BLKADR(R4),RO s;ADDR OF BLOCK 
JSR PC,TYPEST s TYPE DRIVE STATISTICS 
BR 9$ EXIT 
1$: MOV MUNTNOT,ASNMSG ;ADDR OF "NOT ASSIGNED’ MSG 
JSR PC, ASNERR s TYPE ERROR MESSAGE 
BR 9% : 
2$: MOV #8. ,R3 ;DRIVE COUN 
3$: BITB ATABIT(R4),ASNLST ;SEE IF DRIVE ASSIGNED 
BNE 4$ BR. IF YES 
INC RG ; INCREMENT DRIVE ADDRESS 
DEC R3 :DECREMENT COUNTER 
BNE 3$ >MORE TO CHECK 
BR 9$ sNONE ASSINGED, RETURN 
4$: JSR PC,STATPR sTYPE ALL STATISTICS 


SEQ 0117 


+ - -—-- + + SS 
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CZRIVD.P11 06-JUN-79 08:32 GENERAL SUPPORT SUBROUTINES SEQ 0118 
6030 025060 105737 001220 TSTB DATE ;SEE IF "DATE*® ENTERED 
6031 025064 001404 BEQ 11$ ;BR IF NOT 
6032 025066 104401 053501 TYPE »DATEIS ;"DATE: ° 
6033 025072 104401 001220 TYPE ,DATE ; THE OPERATOR ENTERED DATE 
6034 025076 105737 001232 118: TSTB OPERiD ;SEE IF OPERATOR 1.D. ENTERED 
6035 025102 001404 BEQ 12% :BR IF NOT 
6036 025104 104401 053512 TYPE »1D1S ;OPERATOR 1.D.: ° 
6037 025110 104401 001232 TYPE ieee be : THE OPERATOR 1.D. 
6038 025114 104401 053534 12$: TYPE HEDL :HEADER LINE 
6039 025120 012737 042262 025174 MOV #DRIVEO*SORVID, 6$ ;DRIVE 1.D. FIELD ADDRESS 
6040 025126 005004 CLR R4 ;DRIVE ADDRESS 
6041 025130 012703 000010 MOV #8. ,R3 ; COUNTER 
6042 025134 136437 033416 001462 5$: BITB ATABIT(R4) -ASNLSI ;SEE IF DRIVE ASSIGNED 
6043 025142 001417 BEQ 7$ :BR IF NOT ASSIGNED 
6044 025144 010446 MOV R4,-(SP) ++ SAVE R4 FOR TYPEOUT 
6045 7; TYPE DRIVE NUMBER 
6046 025146 104403 TYPOS ::G0 TYPE=-OCTAL ASCII 
6047 025150 002 -BYTE 2 3; TYPE 2 DIGIT(S) 
6048 025151 000 -BYTE 0 ;; SUPPRESS LEADING ZEROS 
6049 025152 104401 052321 TYPE ,LINGSP 34 SPACES 
6050 025156 105777 000012 TSTB a6$ ;SEE IF DRIVE 1.D. ENTERED 
6051 025162 001003 BNE 10$ ;BR IF DRIVE I.D. PRESENT 
6052 025164 104401 053557 TYPE , NONE ;TYPE "NONE' 
6053 025170 000404 BR 7$ ; CONTINUE 
6054 025172 104401 10$: TYPE ; TYPE THE DRIVE 1.D. 
6055 025174 000000 6$: -WORD 0 i ADDRESS OF DRIVE 1.D. FIELD HERE 
6056 025176 104401 001165 TYPE »SCRLF 7 CR-LF 
6057 025202 005303 7$: DEC R3  DECREMENT THE COUNTER 
6058 025204 001405 BEQ 8$ ;BR IF AT END 
6059 025206 062737 000304 025174 ADD #$RPEC2+2,6% ; INCREMENT THE MESSAGE FIELD ADDRESS 
6060 025214 005204 INC R4 ; INCREMENT DRIVE ADDRESS 
6061 025216 000746 BR 5$ : CONT INUE 
6062 025220 104401 001165 8$: TYPE » SCRLF 7 CRLF 
7 025224 000207 9$: RTS PC 
6 
orez :'W' COMMAND (ROUTINE TO WRITE A DATA PACK) 
6066 
6067 025226 012737 177777 001216 DATAPK: MOV #-1,PACK 7SET THE ‘WwW’ COMMAND INDICATOR 
ee 025234 000137 024274 JMP ASSIGN ;ASSIGN REQUESTED DRIVE 
606 
6070 
prs ;"R" COMMAND (ROUTINE TO READ A DATA PACK) 
6 
6073 025240 012737 000001 001216 REDAPK: MOV #1,PACK ;SET THE "READ' INDICATOR | 
+t 025246 000137 024274 JMP ASSIGN ;ASSIGN THE REQUESTED DRIVE 
6 
6076 ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE | 
6077 CALL : 
6078 ; MOV #0PB,RO ;DPB ADDRESS 
6079 ; JSR PC,CLRDPB 
6080 ; RETURN 
6081 
6082 025252 CLRDPB: 
6083 025252 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
6084 025254 010446 MOV R4,-(SP) 3;PUSH R4 ON STACK 
6085 025256 010546 MOV R5,-(SP) ;;PUSH RS ON STACK 
! 





an 


CZRIDDO, RPOG/5/6 MLT-DR LGC 
06-JUN-79 08:32 


CZRJ 


DD.P11 


025260 


025454 


025456 


025476 
025500 


025544 


016046 


060207 


010346 


104403 


000262 


000002 
000005 


000002 
000070 


000002 


000014 
000162 


000002 
001434 


000001 


000004 
000262 


000042 
053375 


054066 
052654 
000001 


052661 
000002 


052666 


MACY11 30A(1052) 


000024 


000002 
000030 


000020 
000004 


000022 
000024 


000022 


GENERAL SUPPORT 


2$: CLR 


3$: CLR 


4$: MOV 


;ROUTINE TO GET 
DRVPRM: MOV 
MOV 


TST 
BNE 
TYPE 
ASR 
MOV 


TYPOS 


C 10 
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SUBROUTINES 
SRPDT(RO),-(SP) ;SAVE DRIVE TYPE (REVD) 
RO,R4 GET THE DPB ADDRESS 
#2,R4 s ADDRESS OF FIRST LOCN TO BE CLEARED 
#5 ,R3 “NUMBER OF LOCNS TO BE CLEARED 
(R4)+ ;CLEAR THE LOCATION 
R3 :DECREMENT THE COUNTER 
1$ ;BR IF NUT FINISHED 
#2,R sMOVE THE ADDRESS PAST THE ‘REG’ ADDR 
rBiexT-sRE6, R3 ;NUMBER OF LOCNS TO BE CLEARED 
(RG > CLEAR 
#2, a3 :DECREMENT THE LOCN COUNTER 
2% iBR IF NOT FINISHED 
#12. MOVE PAST ADDRESS LIMITS 
aSRPECS-MINSEC, RS sNUMBER OF LOCNS TO BE CLEARED 
(R4)+ 3CL EAR A LOCATION 
#2,R3 :DECREMENT THE COUNTER 
3$ ;BR IF NOT DONE 
Seton. $CODE(RO) ;INITIAL COMMAND CODE 
BEGCOD,R1 :GET THE ACTUAL OP CODE 


COMTBL RI), SCOMND(RO) ;OPERATION CODE 
BEGPAT,$PATTC(RO) ;PATTERN CODE 

$PATTC(RO) ;CONVERT CODE TO A TABLE INDEX 
BEGSIZ,$WRDL(RO) ;BEGINNING RECORD SIZE 
BEGSI1Z,$WRDM(RO) ;VALUE FOR DATA TRANSFER 
$SWRDM(RO) ;MAKE IT INTO 2°S COMPLEMENT 
#256.,$SSEC(RO) ;INITIAL VALUE OF SECTOR SIZE 
een ;HEADER ORDER ? 

4 


;BR IF NOT 
#4,$SSEC(RO)  ; ADD HEADER SIZE TO SECTOR SIZE 
(SP)+,$RPDT(RO) ;RESTORE DRIVE TYPE (REVD) 
(SP) +,R5 ;;POP STACK INTO R5 
(SP) +,R4 ;;POP STACK INTO R4 
(SP) +,R3 POP STACK INTO R3 
PC ; RETURN 
ADDRESS LIMITS FROM THE OPERATOR 
R3,-(SP) SAVE R3 
R4,-(SP) SAVE RG Ne 
42 ;RUNNING UNDER MONITOR CONTROL 
3$ :BR IF YES 
SENTLMT ; "ENTER ADDRESSES* 
RG :CONVERT INDEX 70 DRIVE NUMBER 
R4,-(SP) SAVE R4 FOR TYPEOUT 


:; TYPE DRIVE NUMBER 
::G0 TYPE--OCTAL ASCII 


2 s; TYPE 2 DIGIT(S) 

0 A tiie LEADING ZEROS 
SLASH a i 

#RPO4B,2$ gett OF "RPOG' MESSAGE 
#B1T00, DRVTYP (RG) >RPO4 

1$ :BR IF ES 

#RPOS,2$ s ADDRESS OF *RPOS' MESSAGE 
WBIT01, DRVTYP(R4) ;RPOS ? 

1$ BR IF YES 

#RP06,2$ s ADDRESS OF -"RPO6' MESSAGE 


SEQ 0119 


Recerca 
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104401 

001165 
000632 
090004 


001456 
177777 


001350 


000120 
054246 
001350 
001350 
000042 
026370 
000120 


000114 
000110 


025736 000207 


025740 010546 


000042 


001262 
053350 


001165 


001262 
000056 
000224 


000231 
026046 





MACY11 gt ho 


001350 
033312 


001350 
000122 


000106 
000112 
000116 


000002 
000010 


000010 
000011 
000012 


O03-JUL-79 10:41 
GENERAL SUPPORT SUBROUTINES 
1$: TYPE 
2$: -WORD 0O 
TYPE , SCRLF 
3$: MOV #410.,CYLIMT 
BITB #81102, DRVTY 
BEQ 4% 
MOV #814.,CYLIMT 
4$: ADD #-1 SFIRSTOR 
BCS 5$ 
MOV CYLIMT,MAXCY 
CLR MINCYL (RO) 
MOV TRKLMT ,MAXTR 
CLR MINTRK (RO) 
MOV SECLMT ,MAXSE 
CLR MINSEC(RO) 
5$: ASL R4 
MOV TABLE (R4) ,R3 
MOV CYLIMT,2(R3) 
MOV CYLIMT,10(R3 
TST 42 
BNE 6$. 
JSR PC,PARENT 
6$: MOVB MINSEC(RO),$ 
MOVB MINTRK(RO),$ 
MOV MINCYL(RO),$ 
MOV (SP)+,R4 
MOV (SP)+,R3 
RTS PC 
;ROUTINE TO GET THE DRIVE I 
GETID: MOV R5,-(SP) 
TST 42 
BNE 2$ 
1$: CLR CFLAG 
TYPE »ENTDRV 
CLR -(SP) 
MOVB (RO), (SP) 
TYPOS 
BYTE 2 
BYTE 0 
TYPE  SCRLF 
RDOLIN 
MOV (SP)+,R5 
TST CFLAG 
BNE 1$ 
CMPB (R5),#'. 
BEQ 2$ 
MOVB (R5)+,$DRVID 
MOVB (R5)+,$DRVID 
MOVB (R5)+,$DRVID 
MOVB (R5)+,$DRVID 
MOVB (R5)+,$DRVID 
MOVB (R5)+,$DRVID 
2$: MOV (SP)+,R5 
RTS PC 
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TYPE THE MESSAGE WHICH FOLLOWS 
3 MESSAGE ADDRESS 


C 
:ASSUME AN RPO4/5 
P(R4) 


;SEE IF RPO6 
BR" IF NOT 
;CHANGE LIMIT TO 814 
0) ;SEE IF FIRST TIME STARTED 
:BR IF NOT 
L(RO) ;LOAD MAXIMUM CYLINDER 
:CLEAR MINIMUM CYLINDER 
K(RO) ;LOAD MAXIMUM TRACK 
;CLEAR MINIMUM TRACK 
C(RO) ;LOAD MAXIMUM SECTOR 
;CLEAR MINIMUM SECTOR 
: SETUP TO ADDRESS WORDS 
;PARAMETER TABLE ADDRESS 
;LOAD CYLINDER LIMIT FOR LAST CYLINDER 
) ;LOAD CYLINDER LIMIT FOR STARTING CYLINDER 
;UNDER MONITOR CONTROL ? 
;BR IF YES 
;GET THE DRIVE'S PARAMETERS 
SEC(RO) ;INITIAL SECTOR VALUE 
TRK(RO) ;INITIAL TRACK VALUE 
CYL(RO) ;INITIAL CYLINDER VALUE 
RESTORE R4 
;RESTORE R3 
; RETURN 


-D. FROM THE OPERATOR 


;SAVE R5 

;UNDER MONITOR CONTROL ? 

;BR IF NOT 

;CLEAR THE "CONTROL C' FLAG 

"ENTER DRV 1.D.: 

;CLEAR THE STACK 

:PUT THE DRIVE NUMBER ON THE STACK 

; TYPE THE DRIVE NUMBER 

TYPE 2 DIGITS 

;SUPRESS LEADING ZEROS 

; CR-LF 

;READ THE ENTRY 

;GET THE ENTRY ADDRESS 

:"CONTROL C‘ ENTERED ? 

;BR IF IT WAS 

;PERIOD ENTERED ? 

;BR IF YES 
(RO) ;STORE THE 1.D. 
+1(RO) ;STORE THE | 
+2(R0) ;STORE THE 1.D. 
*3(RO) ;STORE THE | 
+4(RO) ;STORE THE 1 
*5(R0) ;STORE THE 1 

;RESTORE R5 

;RETURN 


. . . . 
i hn haw ho Be) 
. . . . 


SEQ 0120 


CZRJDDO, RPO4/5/6 MLT-DR LGC 
Pil 06-JUN-79 08:32 


Car JDD.P 


6201 026050 


6253 026254 


110264 


000042 


001262 
053436 


001165 
000040 
900124 


177777 


000042 
000100 
000020 
001262 


001350 
027730 


001346 
027730 


000005 
000003 
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GENERAL SUPPORT SUBROUTINES 


03-JUL-79 10:41 
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sROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16) 


GETADR: 


148: 


2$: 


3$: 
4$: 
5$: 


6$: 
7$: 


R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
4 


WSBDSEC, R4 
RO,R4 
#-1,(R4)4 


#64. ,R4 
#16.,R5 


(SP)+,Ri 
CFLAG- 
14% 


CYLIMT,R2 
R5,CK.DIG 


R2,(R4) 
13$ 
R2,(R4) 
11$ 
R2,(R4) 


TRKLMT,R2 
R5,CK.DIG 


_ 
R2,3(R4) 


3;PUSH R1 ON STACK 
3;PUSH R2 ON STACK 
>;PUSH R3 ON STACK 
3;PUSH R4& ON STACK 
;UNDER MONITOR CONTROL ? 
;BR IF YES 
sCLEAR ‘CONTROL C* FLAG 
sENTER SECTOR ADDRESSES 
;CLEAR THE STACK 
;PUT THE DRIVE NUMBER ON THE STACK 
; TYPE THE DRIVE NUMBER 
sTYPE 2 DIGITS 

at LEADING ZEROS 

;CReL 

s;NUMBER OF LOCATIONS IN THE TABLE TO PRESET 
; TABLE INCREMENT 
‘BLOCK STARTING ADDRESS 
;SET LOCATION TO 1'S 
;DECREMENT TABLE SIZE COUNT 
;BR IF NOT FINISHED WITH TABLE 
;UNDER MONITOR CO TROL ? 
sBR IF YES 
:SET POINTER TO BEGINNING OF TABLE 
;NUMBER OF ADDRESSES IN TABLE 
;GET ADDRESS FROM OPERATOR 
> TEXT POINTER 
; "CONTROL C‘ ENTERED ? 
;BR IF IT WAS 
sUPPER LIMIT OF INPUT 
s; CHECK THE DIGIT(S) 
; CARRIAGE RETURN ONLY ENTERED 
;PER1OD ONLY ENTERED 

; ILLEGAL INPUT 

sTERMINATED WITH : CARRIAGE RETURN 
s TERMINATED WITH A 

s TERMINATED WITH A vale 

; CYLINDER ADDRESS 

sEXIT, PERIOD ENTERED 

= CYLINDER ADDRESS 

sFINISHED WITH THIS ADDRESS, ‘"CR° ENTERED 
; CYLINDER ADDRESS 

;UPPER LIMIT OF INPUT 
* CHECK THE DIGIT(S) 

; CARRIAGE RETURN ONLY ENTERED 

; PERIOD ONLY ENTERED 

sILLEGAL INPUT 

s TERMINATED WITH : CARR I AGE RETURN 
sTERMINATED WITH A" 

sTERMINATED WITH A one 

; TRACK ADDRESS 

EXIT, ENTRY TERMINATED BY PERIOD 
s TRACK ADDRESS 


SE ee | 


arr- 
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CZRJDD.P11 06-JUN-79 08:32 GENERAL SUPPORT SUBROUTINES SEQ 0122 
6254 026260 000421 BR 11$ sFINISHED WITH THIS ADDRESS, ‘CR ENTERED 
6255 026262 110264 000003 &$: MOvVB R2,3(R4) ; TRACK ADDRESS 
6256 026266 013702 001344 MOV SECLMT,R2 sUPPER LIMIT OF INPUT 
6257 026272 004537 027730 JSR R5,CK.DIG > CHECK THE DIGIT(S) 

6258 026276 026336 12% : CARRIAGE RETURN ONLY ENTERED 
6259 026300 026356 13% ;PERIOD ONLY ENTERED 

6260 026302 026336 12% ; ILLEGAL INPUT 

6261 026304 026320 10% = TERMINATED WITH : CARRIAGE RETURN 
6262 026306 026336 12% - s TERMINATED WITH A 

6263 026310 026312 9$ s TERMINATED WITH A ta 

6264 026312 110264 000002 9$: MOVB R2,2(R4) = SECTOR ADDRESS 

6265 026316 000417 BR 13% “EXIT, ENTRY TERMINATED BY PERIOD 
6266 026320 110264 000002 10$: MOVB R2,2(R4) sSECTOR ADDRESS 

6267 026324 005303 11$: DEC R3 ;MORE ENTRIES ? 

6268 026326 001413 BEQ 13$ in ;BR IF NOT 

6269 026330 062704 000004 ADD HG RG : INCREMENT THE TABLE POINTER 

6270 026334 000706 BR 2$ ; CONTINUE 

6271 026336 012714 177777 12$: MOV #-1,(R4) :CLEAR PRESENT TABLE ENTRY 

6272 026342 012764 177777 000002 MOV #=-1,2(R4) :CLEAR PRESENT TABLE ENTRY 

6273 026350 104401 953566 TYPE »BADENT >" INVALID ENTRY’ 

6274 026354 000676 BR 2$ sTRY AGAIN 

6275 026356 13$: 

6276 026356 012604 MOV (SP)4+,R4 7:POP STACK INTO RG 

6277 026360 012603 MOV (SP)+,R3 >:;POP STACK INTO R3 

6278 026362 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 

6279 026364 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

art} 026366 000207 RTS PC ;RETURN 

6 

6282 ;PARAMETER ENTRY ROUTINE 

6283 CALL 

6284 : MOV WADR,R3 ;PARAMETER TABLE ADDRESS 

et : JSR PC,PARENT :GET THE PARAMETERS 

6286 

6287 026370 010346 PARENT: MOV R3,-(SP) sSAVE THE PARAMETER TABLE ADDRESS 
6288 026372 005037 001262 CLR CFLAG sCLEAR THE ‘CONTROL C* FLAG 

6289 026376 012337 026406 18: MOV (R3)+,3$% sADDRESS OF PARAMETER NAME 

6290 026402 001442 BEQ ;BR IF AT END OF TABLE 

6291 026404 104401 ; TYPE s TYPE THE PARAMETER NAME 

6292 026406 000000 3$: WORD 0 :ADDRESS OF PARAMETER NAME TEXT 
6293 026410 012302 MOV (R3)+,R2 >MAXIMUM PARAMETER VALUE 

6294 026412 012305 MOV (R3)+,R5 ;ADDRESS OF PARAMETER 

6295 026414 011546 MOV (R5),-(SP) sCURRENT VALUE OF PARAMETER 

6296 026416 104405 TYPDS sy vee THE CURRENT VALUE OF THE PARAMETER 
6297 026420 104401 054066 TYPE SLASH 

6298 026424 104411 RDLIN READ THE KEYBOARD 

6299 026426 012601 MOV (SP)+,R1 : INPUT ASCII] STRING ADDRESS 

6300 026430 005737 001262 TST CFLAG = "CONTROL C' ENTERED ? 

6301 026434 001021 BNE 8$ :BR IF IT WAS 

6302 026436 004537 027730 JSR R5,CK.DIG ;CHECK THE DIGIT(S) 

6303 026442 026376 1$ s CARRIAGE RETURN ONLY ENTERED 
6304 026444 026510 9$ ;PERLOD ONLY ENTERED 

6305 026446 026462 6$ sILLEGAL INPUT 

6306 026450 026456 5$ : TERMINATED WITH A — RETURN 
6307 026452 026462 6$ sTERMINATED WITH A ‘ 

6308 026454 026474 7$ sTERMINATED WITH A‘ 

6309 026456 010215 5$: MOV R2,(R5) MOVE NEW VALUE 10 pinane eis LOCATION 


iano RP04/5/6 MLT-DR LGC 
CZRIDD.P11 06-JUN-79 08:32 
026460 000746 

053566 
000006 


001262 


026512 000207 


026514 
026520 
026524 


026526 


104401 
104401 
010446 


104403 
002 


053277 
952450 


001165 


026542 000207 


026544 005004 
111004 
146437 
006304 
010064 
104401 
104401 
104401 
104401 
006204 


033416 
001464 


053163 
026606 


010446 
026610 104403 
026612 002 
026613 000 
026614 104401 
026620 000207 


001165 


026622 032777 000020 
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GENERAL SUPPORT SUBROUTINES 
BR 1$ :GET MORE PARAMETERS 

6$: TYPE »BADENT ;"BAD ENTRY’ 
SUB #6,R5 sDECREMENT THE TABLE POINTER 
BR i$ ; TRY AGAIN 

7$: MOV R2,(R5) ;NEW VALUE 
BR 9$ sEXIT 

8$: CLR CFLAG sCLEAR THE "CONTROL C° FLAG 
MOV (SP) ,R3 ;RELOAD THE PARAMETER TABLE ADDRESS 
BR 1$ s TRY AGAIN 

9$: TST (SP)¢ sCORRECT THE STACK POINTER 
RTS PC ;RETURN 

pga ASSIGN/DEASSIGN ERROR MESSAGE 

7 CALL 

. MOV WMESADR,ASNMSG ;ERROR MESSAGE ADDRESS 

é JSR PC,ASNERR 

; RETURN 

ASNERR: TYPE QUES: sQUESTION MARK 
TYPE »UNTMSG sTYPE "DRIVE' 
MOV R4,-(SP) 3; SAVE R84 FOR TYPEOUT 

>; TYPE DRIVE NUMBER 

TYPOS 3;G0 TYPE--OCTAL ASCII 
BYTE 2 >; TYPE 2 DIGIT(S) 
BYTE 0 ;; SUPPRESS LEADING ZEROS 
TYPE s TYPE SPECIFIC MESSAGE 

ASNMSG: .WORD 0 sMESSAGE ADDRESS 
TYPE ,SCRLF 
RTS PC 

:DEASSIGN DRIVE IF A FATAL ERROR OCCURS 

3 CALL 

3 JSR PC,DROP 

3 RETURN 

DROP: CLR RG > CLEAR R4 FOR DRIVE NUMBER 
MOVB (RO) ,R4 sMOVE DRIVE NUMBER TO R4& 

001462 BICB ATABIT(R4),ASNLST ;REMOVE DRIVE FROM ASSIGNED LIST 
ASL R4 sMAKE DRIVE NUMBER INTO A TABLE iNDEX 
MOV RO, DUNIT(RG) sPUT DRIVE IN DROP LIST 
TYPE SCRLF 
TYPE  SCRLF 
TYPE »DROPNG s TYPE — DRIVE’ 
TYPE ,»DRNUM :"DRIVE # 
ASR R4 ;DRIVE NUMBER 
MOV R4,-(5P) >: SAVE R4 FOR TYPEOUT 
si: TYPE DRIVE NUMBER 

TYPOS 3;GO0 TYPE--OCTAL ASCII 
BYTE 2 >; TYPE 2 DIGIT(S) 
BYTE 0 >; SUPPRESS LEADING ZEROS 
TYPE , SCRLF 
RTS C 


ROUTINE TO DEASSIGN DRIVE | 
152310 ABNRML: BIT #SWO4,aSWR 


F ERRORS BECOMES EXCESSIVE 
sSEE IF SWITCH & SE? 


SEQ 0123 


ee ee ee 


Spey wae MLT-DR LGC 
{ 06-JUN-79 08:32 


CZRID 


D.P 


026630 
026632 
026640 
026642 
026646 


026650 


026776 
027002 


027020 
027024 


027052 


027056 
027060 
027062 


001006 
023760 
103002 
000137 
000207 


005737 


104401 
104401 
013746 


104403 


013746 
104403 


012703 


005924 
005303 
001375 


001406 
026544 


001430 
000054 


000052 


000044 


000042 
001165 
053106 
000070 


001246 
000020 


000070 
053122 


053163 
001246 


001165 


053163 
001246 


001165 
022764 


000036 
000010 


MACY11 30A(1052) 


000056 


001374 


001372 


001400 


001376 


152164 
001402 


1$: 
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1$ 78 
MAXER,STOTAL (RO) 
1$ 7B 


DROP 
PC 


126 


R IF iT°S SET 

;CHECK TOTAL ERROR VALUE 

BR If ERRORS DONOT EXCEED MAX 
;DEASSING THE DRIVE 

; RETURN 


;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 


EOP: 


EOP1: 


EOP 2: 


2$: 


ENDET 


;END OF PASS DETERMINED BY SEEKS OR WORDS ? 
IF SEEKS 


EOP 1 ;BR 
beet aname sp > CHECK MSW OF WORDS READ COUNT 
EO 7B 


EOP | ; 
SREAD (RO), ENDCON 


feos 


£0 


R IF MSW GREATER THAN LIMIT 
R IF MSW LESS THAN LIMIT 

> CHECK LSW AGAINST LIMiT 
BR , EQUAL OR GREATER 


EOPX 7 EX 
“hs ai dai JENDSEK#2 ;CHECK MSW OF SEEK COUNT 


;BR IF MSW GREATER THAN LIMIT 
EXIT IF MSW LESS THAN LIMIT 


EOPX 
$POSIT (RO) , ENDSEK ;CHECK SW OF SEEK COUNT 


EOPX 

-SCRLF 

,ENDPAS 
$SPASSC(RO) ,-(SP) 


(RO) ,UNIT 
#SWO4 ,aSWR 


1$ 
Nepean nin 


UNIT, - (SP) 


2 

0 

.$CRLF 

3$ 

,DRNUM 
UNIT,=(SP) 
2 


0 
 SCRLF 
PC, TYPEST 


#8.,R3 


exit IF LSW LESS THAN LIMIT 
7 CReL 
;END OF PASS FOR THE DRIVE 
;PUT PASS COUNT ON THE STACK 
;CONVERT PASS COUNT TO DECIMAL AND TYPE IT 
;STORE THE DRIVE NUMBER 
;SWITCH 4 SET ? 
;BR IF SET 
T ‘T's IF AT END OF TEST 
;BR IF 


>;SAVE UNIT FOR TYPEOUT 
3; TYPE DRIVE NUMBER 

3:G0 TYPE--OCTAL ASCI1 
si: TYPE 2 DIGIT(S) 
ie LEADING ZEROS 
:DEASSIGN THE DRIVE 

> "DRIVE a’ 

>;SAVE UNIT FOR TYPEQUT 
3; TYPE DRIVE NUMBER 

3;GO TYPE=-OCTAL ASCII 
si TYPE 2 DIGIT(S) 

>; SUPPRESS LEADING ZEROS 


s CRLF 

sTYPE THE DRIVE'S STATISTICS 
SAVE R3 

; SAVE R&S 

sDRIVE'S BLOCK ADDRESS 

;ADD THE STARTING ADDR OF SECTIONS TO CLEAR 
sNUMBER OF LOCNS TO BE CLEARED 
; (ERROR COUNTERS NOT CLEARED) 
sCLEAR THE LOCN 

sDECREMENT THE LOCATION COUNTER 
;BR IF MORE 10 GO 


SEQ 0124 


eV 
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CZRIDD.P11 


027064 


027122 


027124 


027150 


027152 


027216 


027220 
027224 
027226 
027230 


06-JUN-79 08:52 


012604 
012603 


000207 


013746 


000207 


104412 


012616 
000207 


012746 
010446 
010546 
005466 


000070 
001165 


033416 
001464 


032562 
932560 


027152 


000026 


000030 
000032 


027220 
000030 
000032 


000040 


000002 
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GENERAL SUPPORT SUBROUTINES 


MOV (SP)+,R4 sRESTORE R& 
MOV (SP)+,R3 sRESTORE R35 
INC SPASSC(RO) ; INCREMENT THE PASS COUNT 
BR EOPX sEXIT 
3$: TYPE , SCRLF 
CLR R4 Ay R4 FOR DRIVE NUMBER 
MOVB (RO) ,R4 OVE DRIVE NUMBER 
B1CB ATABIT (RA) , asst ;DELETE DRIVE FROM ASSIGNED LIST 
ASL MAKE DRIVE NUMBER INTO TABLE INDEX 
MOV RO, DUNIT(R4) :PUT BLOCK ADDRESS INTO DROP LIST 
EOPX: RTS PC ; RETURN 
oie: TO GET THE REMAINDER OF THE RANDOM NUMBER 
ALL 
; MOV NUMBER ,R5 :DIVISOR INTO R5 
; JSR PC,GETREM 
: RETURN ;REMAINDER IS IN R5 
GETREM: MOV $LONUM,-(SP) ;STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 
MOV $SHINUM,-(SP) ;UPPER PART 
MOV R5,-(SP) ;PUT THE DIVISOR ONTO THE STACK 
JSR PC,LINKDV ;DIVIDE THE RANDOM NUMBERS 
MOV (SP)+,R5 ;PUT THE REMAINDER INTO R5 
TST (SP)¢ ;ADJUST THE STACK POINTER 
NOP ;FOR DEBUGGING HALT 
RTS PC 
LINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE 
: THIS ROUTINE ALLOWS THE "SYSMAC* DIVIDE ROUTINE 
: CALLING SEQUENCE TO BE USED 
LINKDV: SAVREG STORE RO - R5 
MOV 26(SP),R5 ;DIVISOR 
CLR RS ;OTHER DIVISOR WORD 
MOV 30(SP),R2 ;UPPER DIVIDEND WORD 
MOV 32(SP) R53 ;LOWER DIVIDEND WORD 
Be 7 CLEAR OTHER DIVIDEND REGISTERS 
CL 
JSR PC,M.DPID ;GO TO THE DIVIDE ROUTINE 
MOV R1,30(SP) REMAINDER ON THE STACK 
MOV R3,52(SP) ;QUOTIENT ON THE STACK 
RESREG sRESTORE RO - R5 
MOV (SP)+, (SP) sMOVE RETURN UP THE STACK 
RTS PC 
: DIVISION UTILITY SUBROUTINE 
; RO-R1-R2-R3=DIVIDEND 
3 R4-R5=DIVISOR 
: RO-R1=REMAINDER AFTER DIVISION 
: R2-R3=QUOTIENT AFTER DIVISION 
: ENTER WITH JSR PC,M.DPID 
M.DPID: MOV #40,-(SP) ;COUNTER FOR DIVISION CYCLES 
MOV R4,-(SP) ;HIGH ORDER 
MOV R5,-(SP) LOW ORDER DIVISOR 10 THE STACK 


NEG 2(SP) ;FORM NEGATIVE 


SEU 0125 


CZRJDDO, RPO4/5/6 MLT-DR LGC 
CZRJDD.P11 


027234 


027374 


027376 
027400 
027404 
027406 
027412 
027416 


005416 


000262 
000207 
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000002 


000002 


000002 


000004 


000006 


000010 


000006 


000012 


000006 
000060 
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:VERSION OF THE DIVISOR 


PERFORM THE INITIAL SUBTRACTION 


7 1F CARRY THEN OVERFLOW HAS OCCURRED 
: THIS 1S A LONGER LASTING CARRY BIT 


TEST "‘CARRY’’ INDICATOR 
IF NO “'CARRY’’ THEN ADD ELSE SUBTRACT 
7CLEAR UP FOR NEXT TIME 


;ADD -(DIVISOR) 
] 7SET “'CARRY"’ 


ste 


sADD +(DIVISOR) 
7SET "'CARRY"’ 


;SET "CARRY" 

;TEST THE UPDATE INDICATOR 
aid :1f ZERO FORGET IT 
. 4 ;NO CARRY POSSIBLE HERE 
3<* ;DECREMENT COUNTER 

;BRANCH IF MORE TO DO 


sADJUST STACK BY 4 WORDS 


MACY11 30A(1052) O3-JUL-79 10:41 
GENERAL SUPPORT SUBROUTINES 
NEG asP 
SBC 2 (SP) 
ADD asP,R1 
ADC 0 
ADD 2(SP) ,RO 
BCS M.DP50 
CLR -(SP) 
M.DP40: ROL R3 
ROL R2 
ROL RI 
ROL RO 
TST asP 
BEQ M.DP41 
CLR asP 
ADD 2(SP),R1 
ADC RO 
ADC asP 
ADD 4(SP),RO 
BR M.DP42 
M.DP41: ADD R5,R1 
ADC RO 
ADC asP 
ADD R4 ,RO 
M.DP42: ADC asP 
TST asP 
BEQ +4 
INC R3 
DEC 6(SP) 
BGT M.DP4O 
ROR R3 
BCS M.DP44 
ADD R5,R1 
ADC RO 
ADD R4,RO 
CLC 
M.DP44: ROL R3 
ADD #10,SP 
CLV 
RTS PC 
M.DP50: ADD #6,SP 
SEV 
RTS PC 


ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


CALL 


: JSR 
REPLZ: MOV 


1$: CMPB 


#ADR,-(SP) ADDRESS OF NUMBER (IN ASCI1) 
R5,REPLZ 

N 7"N' IS NUMBER OF DIGITS TO BE TYPED 
RO,-(SP) ; SAVE RO 

#10.,-(SP) ;MAXIMUM NUMBER OF DIGITS TO BE TYPED 
(R5)+, (SP) ;SUBTACT DIGITS TO FORM INDEX 

6(SP) ,RO ;ADDRESS OF NUMBER TO RO 

#'0, (RO) sBYTE EQUAL TO ASCII 'O* ? 

2$ ;BR IF NOT 


SEQ 0126 


- | 
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6534 027420 112710 000040 MOVB #40, (RO) sREPLACE THE ZERO WITH A SPACE 
6535 027424 005200 INC RO : INCREMENT THE BYTE ADDRESS 
6536 027426 000771 BR 1$ -GO BACK AND LOOK FOR MORE LEADING ZEROS | 
6537 027430 105710 2$: 1STB (RO) :SEE IF ZERO BYTE TERMINATOR 
6538 027432 001003 BNE 3$ BR IF NOT | 
6539 027434 005300 DEC RO :BACKUP STRING POINTER 
6540 027436 112710 000060 MOVB #°0, (RO) :PUT A ZERO BACK IN 
6541 027442 016637 000006 027456 38: MOV 6<SP),4$ :PUT ADDRESS IN LOCATION FOR TYPEOUT 
6542 027450 062637 027456 ADD (SP)+,4$ BEGINNING OF SIGNIFICANT DIGITS 
6543 027454 104401 TYPE :TYPE THE NUMBER 
6544 027456 000000 4$ WORD 0 : ADDRESS OF NUMBER 
6545 027460 012600 MOV (SP)+,RO sRESTORE RO 
6546 027462 012616 MOV (SP)+, (SP) :MOVE RETURN ADDRESS 
e341 027464 000205 RTS RS > RETURN 
ores sTYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS 
6551 7 CALL 
6552 : MOV WNUMADR,-(SP)  ;:FIRST ADDRESS OF ASCIZ STRING 
tt, ; JSR PC, $SUPRS | 
6555 027466 010046 $SUPRS: MOV RO,-(SP) :SAVE RO 
6556 027470 016600 000004 MOV 4(SP),RO :PICKUP THE POINTER 
6557 027474 105710 1$: TSTB (RO) s TERMINATOR ? 
6558 027476 001403 BEQ 2$ :BR IF YES 
6559 027500 122720 000060 CMPB #'0,(RO)+ :1S THIS AN ASCII 'O' ? 
6560 027504 001773 BEQ 1$ :BR IF YES 
6561 027506 005300 2$: DEC RO :BACKUP BY ‘1° 
6562 027510 010037 027516 MOV RO,3$ :SAVE FOR TYPING 
6563 027514 104414 DISPLY :G0 PRINT 
6564 027516 000000 3$: .WORD 0 sASCIZ POINTER GOES HERE 
6565 027520 012600 MOV (SP)+,RO :RESTORE RO 
6566 027522 012616 MOV (SP)+, (SP) :RESTORE THE STACK 
$367 027524 000207 RTS PC > RETURN | 
6 
6369 sROUTINE TO TYPE AT PRIORITY 4 | 
6 
6571 027526 013746 177776 TYPRi4: MOV awPS,-(SP) :SAVE THE PRESENT STATUS 
6572 027532 012737 000200 177776 MOV #200,aaPS sCHANGE THE PRIORITY TO 4 
6573 027540 012537 02755 MOV (R5)+,1$ :MESSAGE ADDRESS 
6574 027544 004737 031132 JSR PC, $TYPE sTYPE THE MESSAGE 
6575 027550 000000 1$: .wORD 0 :MESSAGE ADDRESS GOES HERE 
6576 027552 000205 RTS RS > RETURN 
6 
6578 sROUTINE TO TYPE ERRORS 
6579 > CALL | 
6580 : DISPLY :MUST DEFINED IN 'TRAP* TABLE 
6581 : MESADR “ADDRESS OF MESSAGE | 
$382 ; RETURN 
6 
6584 027554 032777 020000 151356 S$DSPLY: BIT #B1T13,aSwWR : INHIBIT ERROR TYPEOUT ? 
6585 027562 001004 BNE 1$ :BR IF YES 
6586 027564 005037 177776 CLR aaPs :SET PRIORITY TO ZERO 
6587 027570 000137 031132 JMP $TYPE TYPE THE MESSAGE 
6588 027574 062716 000002 1$: ADD #2, (SP) s INCREMENT THE RETURN 
6589 027600 000002 Ril > RETURN 
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THIS ROUTINE IS USED TO CHECK IF AN 


SEQ 0128 


6600 027602 1ose 
6602 027610 121127 000067 
1010 
1111 
177770 
6607 027626 000205 


6618 027630 000060 


000071 


6623 027646 ones 000060 
6625 027654 000205 


6640 027656 
6641 027660 
000054 


000056 
6645 027674 


The CHARACTER IS A DIGIT BETWEEN O AND 7. 


ALL 


; MOV #ADR,R1 ADDRESS OF ASCII CHARACTER 
: JSR R5,CK.OCT ;CHECK THE CHARACTER 
: RETURN :CHARACTER IS NOT yes 0-7 
; RETURN2 CHARACTER IS IN R2 A 
: ZOCTAL DIGIT 
CK.OCT: CMPB (R1),#°O sLESS THAN ZERO? 

BLO 1$ YES -- BRANCH 

CMPB (R1),#'7 “GREATER THAN SEVEN? 

BHI 1$ 7YES == BRANCH 


MOVB (R1),R2 

BIC #*C7,R2 

TST (R5)+ 
1$: RTS RS 


iGET THE CHARACTER 
:STRIP AWAY THE ASCII 
;ADJUST FOR RETURN 

; RETURN 


;THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 


s;AND DETERMINE IF IT IS A DIGIT 


; CALL 

: MOV #ADR,R1 

; JSR R5,CK.DEC 

3 RETURN1 

; RETURN2 

CK.DEC: CMPB (R1),#'0 
BLO 1$ 
CMPB (R1),#'9 
BHI 1$ 


1$: RTS R5 


BETWEEN 0 AND 9. 


ADDRESS OF ASCII CHARACTER 
;CHECK THE CHARACTER 
;NOT BETWEEN O AND 9 
Ss ey 0 AND 9 
= DIGIT 


;LESS THAN ZERO? 

;YES == BRANCH 
:GREATER THAN NINE? 
YES -- BRANCH 

[GET THE CHARACTER 
:STRIP AWAY THE ASCI1 
;ADJUST FOR RETURN 

; RETURN 


7 THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 


;DETERMINE WHAT IT IS 


7 CALL 
: MOV #ADR,R1 
: JSR R5,CK.CHR 
: RETURN ADR1 
; RETURN ADR2 
: RETURN ADR3 
3 RETURN ADR4 
: RETURN ADR5 
: RETURN ADR6 
CK.CHR: TSTB (R1) 
BEQ 3 
CMPB (R1) a", 
BEQ 
CMPB (R1),a" 
BEQ 


ADDRESS OF ASCII CHARACTER 
> CHECK CHARACTER 
; UNKNOWN CHARACTER 
CARRIAGE RETURN * (R1)=ADR+1 
;COMMA * (R1)=ADR+1 
PERIOD * (R1)=ADR+1 
;DIGIT BETWEEN 0 AND 7. 
24 ad BETWEEN 8 AND 9. 
= DIGIT * (R1)=ADR+1 


"CARRIAGE RETURN"? 


SYES *= BRANCH 


' 
[EE 
NC OOOOOeeEEOOOOEOEOee 
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027714 
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000410 
Boe eae 027602 


005725 
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O3-yUL-79 10:41 


R5S,CK.DEC 
4% 


R5,CK.0CT 
(R5)¢ 
(R5)¢ 
(R5)¢ 


" 10 
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:DIGIT'? 

;NO == BRANCH 
sOCTAL ? 
sDIGIT BETWEEN 
;DIGIT BETWEEN 
PERIOD 


8-9 
0-7 


SEQ 0129 
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027716 


027726 


027730 


030046 


06-JUN- 


005725 
005725 
005201 
011505 
000205 


010446 


005725 


4 
027656 
4: 


000004 


027656 
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23: 
3$: 


4$: 


THIS ROUTINE CHECKS AN ASCI 
CHARACTERS AND FORMS A DECI 


7 CALL 


CK.DIG: 


tw -= 


re 


3$: 


4$: 
5$: 


6$: 
7$: 


nN 10 
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a Oe 7 


SEQ 0150 


(R5)4 : COMMA 
(R5)4 S CARRIAGE RETURN 
R1 :MOVE POINTER TO NEXT CHARACTER 
(R5),R5 ‘UNKNOWN CHARACTER 
RS = RETURN 
1 STRING FOR LEGAL 
MAL VALUE BINARY NUMBER IN R2. 

#ADR,RI sADDRESS OF ASCIZ STRING 
#NUM,R2 :MAX. MAGNITUDE OF INPUT NUMBER 
R5,CK.DIG =CHECK DIGITS 
ADR1 :"CR' ONLY ENTERED <= R2=0 
ADR2 :PERIOD'' ONLY ENTERED <= R2=0 
ADR3 ; ILLEGAL CHARACTER OR INPUT TOO LARGE <= R2=? 
ADR :"CR'' <= R2 = NUMBER 
ADRS :"COMMA’’ == R2 = NUMBER 
ADR6 :PERIOD'’ <= R2 = NUMBER 
R4,-(SP) SSAVE RG " 
R3,-(SP) SSAVE R3 
R2,-(SP) :SAVE THE MAX. SIZE ON THE STACK 
R2 =START WITH 0 
R3 
RG 
RS,CK.CHR :CHECK ONE CHARACTER 

SILLEGAL CHARACTER 

CARRIAGE RETURN 

:DIGIT 0-7 

:DIGIT 8-9 
#4 RS ;STEP RETURN. POINTER PAST “CR” & “PERIOD" RETURNS 
R3 > INPUT NUMBER «2 
R3,-(SP) SSAVE #2 
R3 84 
R3 +8 
(SP)+,R3 (#2)4(#8) = #10 
R2,R3 [UPDATE THE INPUT NUMBER 
R5,CK.CHR [CHECK ONE CHARACTER 

ILLEGAL CHARACTER 

: CARRIAGE RETURN 

“DIGIT 0-7 

:DIGIT 8-9 
(R1) [DOES A CR’ FOLLOW THE ‘'PERIOD' 
8$ :BR IF NOT 
(R4)+ > INCREMENT THE RETURN 
(RG)+ = INCREMENT THE RETURN 
(R4)+ > INCREMENT THE RETURN 
R3, (SP) :CHECK THE MAGNITUDE OF THE NUMBER 
9$ :BR IF ENTERED NUMBER TOO LARGE 
8$ :BYPASS INCREMENT 
(R5)4 > INCREMENT RETURN PAST INVALID RETURN 
(R5)+ > INCREMENT RETURN 
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6714 030064 


6726 030066 
6727 030074 


6731 030112 


67435 030116 
6744 030124 
6745 030130 
6746 030134 
6747 030140 
6748 030142 


060405 


000205 


016637 
012746 
004737 
012666 
000207 
000000 


016637 
012746 
004737 
012666 
000207 
000000 
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000002 
930112 
032660 
000002 


000000 


000002 


000002 
000000 


030176 
000240 
150760 
000100 
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030112 


030142 


000060 
000062 


150750 
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8$: ADD R4 RS ;SETUP RETURN POINTER 
9$: MOV R3,R2 ENTERED VALUE 
TST (SP)+ ;CLEAN MAX, SIZE OFF OF STACK 
MOV (SP)+,R3 ; RESTORE a 
MOV (SP)+,R4 ;RESTORE R 
MOV (R5),R5 ;GET RETURN ADDRESS 
RTS R5 ; RETURN 


THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNEMABINARY NUMBER TO AN 
;UNSIGNED DECIMAL ASCIZ NUMBER. ~ 


> CALL 


SEQ 0131 


; MOV NUMBER ,-(SP) ;PUT THE NUMBER ON THE STACK 
: JSR PC ,$SB2D 7 CALL 
; RETURN “ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
NOTE : THE PROGRAM REQUIRES THIS FORM OF ‘'$SB2D", NOT THE VERSION ON 
; THE SYSMAC LIBRARY, REV C AND LATER 
$SB2D: MOV 2(SP),1$ 7; SAVE THE BINARY NUMBER 
MOV #1$,-(SP) ;SET THE POINTER 
JSR PC ,$DB2D ;CALL THE DOUBLE LENGTH CONVERT 
MOV (SP)+,2(SP) ;PICKUP THE POINTER 
RTS PC ; RETURN 
1$: -WORD 0,0 


THIS ROUTINE WILL CONVERT A 16-BI1T UNSIGNED BINARY NUMBER TO AN 
;UNSIGNED OCTAL ASCIZ NUMBER. 


7 CALL 

; MOV NUMBER ,~(SP) ;PUT THE NUMBER ON THE STACK 

: JSR PC,$SB20 7 CALL 

: RETURN ADDRESS OF THE 1ST ASCIZ CHAR iS ON THE STACK 


:NOTE THE PROGRAM REQUIRES THIS FORM OF ‘'$SB20', NOT THE VERSION ON 


THE SYSMAC LIBRARY, REV C AND LATER 


$SB20: MOV 2(SP),1$ ;SAVE THE BINARY NUMBER 
MOV #1$,-(SP) ;SET THE POINTER 
JSR PC,$DB20 ;CALL THE DOUBLE LENGTH CONVERT 


MOV (SP)+,2(SP) sPICKUP THE POINTER 
RTS PC s RETURN 

1$: WORD 0,0 

sKEYBOARD INTERRUPT INITIALIZATION ROUTINE 

3 CALL 

: JSR PC,STKINT 

g RETURN 

STKINT: MOV ASTKSRV,TKVEC ;SETUP VECTOR 
MOV MPRS,TKVEC#2 sPRIORITY TO 5 
TST astKB sCLEAR THE BUFFER 
MOV #B1T06,a8TKS sSET INTERRUPT ENABLE 
RTS PC sRETURN 


;KEYBOARD INTERRUPT SERVICE ROUTINE 
7 CALL 
ENTER VIA INTERRUPT 


aon 


¢ 11 
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6764 

6765 030176 104410 $STKSRV: RDCHR ;READ THE KEYBOARD 

6766 030200 112637 030326 MOVB (SP)+,5% = GET THE CHARACTER 

6767 030204 023727 030326 000003 CMP 5$ 43 > "CONTROL 2 

6768 030212 001012 BNE 1$ :BR IF NOT 

6769 030214 104401 001165 TYPE ,SCRLF ; CRLF 

6770 030220 104401 030620 TYPE »SCNTLC Tage 

6771 030224 012737 177777 001262 MOV #-1,CFLAG :SET THE ‘CONTROL C' FLAG 

6772 030232 005077 150706 CLR asTKs :CLEAR THE TTY INTERRUPT 

6773 030236 000432 BR 4% EXIT 

6774 030240 023727 001140 000176 I$: CMP SWR,#SWREG sSOFTWARE SWITCH REGISTER IN USE ? 
6775 030246 001024 BNE 3$ “BR IF NOT 

6776 030250 023727 030326 000007 CMP 5$ a7 :"CONTROL G° ? 

6777 030256 001020 ee ) a ee ae :BR IF NOT 

6778 030260 104401 001165 TYPE ,SCRLF CRLF” 

6779 030264 104401 032433 TYPE ,SCNTLG © ‘iy 

6780 030270 013746 177776 MOV PS,-(SP) = PUT THE STATUS WORD ON THE STACK 
6781 030274 012746 030310 MOV #2%$,-(SP) RETURN ADDRESS 

6782 030300 005077 150640 CLR astKs > CLEAR THE TTY INTERRUPT ENABLE 
6783 030304 000137 932074 JMP $GTSWR :GET THE SWITCH REGISTER ENTRY 
6784 030310 012777 000100 150626 2%: MOV #100, a$TKS sENABLE TTY KEYBOARD INTERRUPT 
6785 030316 000402 BR 4$ sEXIT 

6786 030320 104401 030326 3$: TYPE ,5$ sECHO THE CHARACTER 

ged 030324 000002 4$: RTI RETURN 

6 

ha 030326 000000 5$: -WORD 0 sENTERED CHARACTER 

6791 :THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

6792 sCALL: 

6793 : RDLIN >: INPUT A STRING FROM THE TTY 
6794 ; RETURN HERE sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
oe : s TERMINATOR WILL BE A BYTE OF ALL O'S 
6796 

6797 030330 010346 SRDLIN: MOV R3,-(SP) :SAVE R3 

6798 030332 005046 CLR -(SP) s;CLEAR THE RUBOUT KEY 

6799 030334 012703 030606 1$: MOV ASTTYIN,RS ;GET ADDRESS 

6800 030340 022703 030620 2$: CMP M$TTYINe10.,R3 ;BUFFER FULL? 

6801 030344 101467 BLOS 4% 7BR IF YES 

6802 030346 104410 RDCHR :GO READ ONE CHARACTER FROM THE ITY 
6803 030350 112613 MOVB (SP)+,(R3) :GET CHARACTER 

6804 030352 122713 000177 CMPB #177,(R3) 318 17 A RUBOUT 

6805 030356 001022 BNE 5$ “BR IF NO 

6806 030360 005716 TST (SP) :1S THIS THE FIRST RUBOUT? 

6807 030362 001007 BNE 6$ “BR 1F NO 

6808 030364 112737 000134 030604 MOVB #'\,9% TYPE A BACK SLASH 

6809 030372 104401 030604 TYPE 9% 

6810 030376 012716 177777 MOV #-1, (SP) :SET THE RUBOUT KEY 

6811 030402 005303 6$: DEC R3 sBACKUP BY ONE 

6812 030404 020327 030606 CMP RZ,M#S$TTYIN aS ieee EMPTY? 

6813 030410 103445 BLO 4$ ;BR IF YES 

6814 030412 111337 030604 MOVB (R3),9$% Ae os TO TYPEOUT THE DELETED CHAR. 
6815 030416 104401 030604 TYPE 9% :G0 TYPE 

6816 030422 000746 BR 2$ ;GO READ ANOTHER CHAR, 

6817 030424 005716 S$: TST (SP) sRUBOUT KEY SET? 

6818 030426 001406 BEQ 7$ sBR IF 


NO 
6819 0350630 112737 000134 030604 MOVB a'\,9$ ; TYPE A BACK SLASH 


on 
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104401 


000012 
041536 


030626 
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030604 
000025 
032426 
000003 


177777 
030620 


000012 
001165 
030606 
001164 
930604 
030604 
000015 


177777 
001166 


000004 
030606 


005015 
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001262 


000002 
000004 


000 


GENERAL SUPPORT SUBROUTINES 


TYPE te 

CLR ;CLEAR THE RUBOUT KEY 
7$: CMPB 135, (R3) 71S CHARACTER A CTRL U? 

BNE 10% ;BR IF NO 

TYPE ,SCNTLU ;TYPE A CONTROL ‘'U"’ 

BR i$ 3GO START OVER 
10$: CMPB #3,(R3) 31S CHARACTER A CTRL C ? 

BNE 8% ;BR IF NOT 

MOV #-1,CFLAG ;SET CNTRL C FLAG 

TYPE , SCNTLC ECHO 17 

BR 11% sEXIT 
8$: CMPB #12,(R3) 71S CHARACTER A “'LF'’? 

BNE 3$ ;BRANCH IF NO 

CLRB (R3) ;CLEAR THE CHARACTER 

TYPE , SCRLF STVPE AUR GU 

TYPE »STTYIN ; TYPE THE INPUT STRING 

BR 2$ [GO PICKUP ANOTHER CHACTER 
4$: TYPE ,$QUES ;TYPE A ‘?° 

BR 1$ ;CLEAR THE BUFFER AND LOOP 
3: oree it ;ECHO THE CHARACTER 

Y 


; CHECK FOR RETURN 
BNE 2$ ;LOOP IF NOT RETURN 


CLRB -1(R3) CLEAR RETURN (THE 15) 
TYPE , $Lf ; TYPE A LINE FEED 
118: TST (SP)+ ;CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 ;RESTORE R3 
MOV (SP) ,-(SP) ;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2(SP) } FIRST ASCII CHARACTER ON IT 
MOV MSTTYIN,4(SP) 
RTI ; RETURN 
9$: -BYTE 0 ;STORAGE FOR ASCI] CHAR. TO TYPE 
-BYTE 0 ; TERMINATOR 
$TTYIN: .BLKB- 10. RESERVE a BYTES FOR TTY INPUT 
SCNTLC: .ASCIZ /*C/<CR>K<LF > CONTROL *'C 


EVEN 


SeeeeeeerereerrererereneertrerereerettererenenseteerenAHeHeeeeenees 


-SBTTL MACRO ROUTINES 
.SBTTL ERROR HANDLER ROUTINE 


ppeeeeeeereteeteteeteteetreeteteeee terete re eK eK ETE TET eA e ETE 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

= * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


p*SwiS=1 HALT ON ERROR 

3*SwW13=1 INHIBIT ERROR TYPEOUTS 

p*Swl0=1 BELL ON ERROR 

7 *CALL 

ye ERROR N >; ERROR=EMT AND N=ERROR ITEM NUMBER 


$SERROR: 


SEQ 0133 


on 
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005777 
100002 
000000 
104407 
023737 
001001 
000000 
000002 


104401 


001004 


013746 
104402 


001404 
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001244 
001242 
020000 


023536 
001103 


001102 
002000 


001160 


020000 


030776 
001165 


150164 


000042 


001165 


001114 


001116 


004026 
031050 
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150272 


150252 
150242 


001116 
001114 
150262 


000046 
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CKSWR 3; TEST FOR CHANGE IN SOFT-SWR 


MOV R3,ATIN ;SAVE THE ATTENTION REGISTER CONTENTS 
MOV R1,0RIVE sORIVE NUMBER 
BIT #swi3, aswR : INHIBIT PRINTOUTS ? 
BNE +6 ;BR IF YES 
JSR PC, STIME ; TYPE THE TIME 
7%: INCB SERFLG 3;SET THE ERROR FLAG 
BEQ 7% :;DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSWR :;BELL ON ERROR? 
BEQ 1$ 3;NO - SKIP 
TYPE , SBELL s;RING BELL 
1$: INC SERTIL ;;COUNT THE NUMBER OF ERRORS 
MOV (SP), SERRPC 3;GE1 ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB ASERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1113,aSWR 3;SKIP TYPEOUT IF SET 
BNE 20% 7; SKIP TYPEOUTS 
JSR PC,SERRTYP 3;GO TO USER ERROR ROUTINE 
TYPE ,SCRLF 
208: 
2$: TST aswR >; HALT ON ERROR 
BPL 3$ >;SKIP IF CONTINUE 
HALT ;;HALT ON ERROR! 
3 CKSWR >; TEST FOR CHANGE IN SOFT=SWR 
CMP a442 ,a#46 :ARE WE IN ACT=-11 AUTO MODE? 
BNE .+G :BRANCH IF NOT 
HALT ;HALT ON ERROR IF ACT AUTO MODE 
RTI ;RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


sseererererereetenerreeererteeeereenererekeeeettKeeeReenenteeeree 


>*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 


:*ERROR 1S TO BE REPORTED. 11 THEN OBTAINS, FROM THE ‘ERROR TABLE" (SERRTB), 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
SERRTYP: 
TYPE 


/SCRLF rr °"CARRIAGE RETURN’ & “LINE FEED" 
MOV RO,-(SP) 7 S5AVE RO 
CLR RO >;PICKUP THE ITEM INDEX 
B1SB a#$lTEMB,RO 
BNE 1$ s;1F ITEM NUMBER IS ZERO, JUST 
:; TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) > SAVE SERRPC FOR TYPEQUT 
s ERROR ADDRESS 
TYPOC ::G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
Bk 6$ Hey OuT 
1$ DEC RO sADJUST THE INDEX SO THAT IT WILL 
ASL RO Be WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD @SERRTB RO ; i FORM TABLE POINTER 
MOV (RO)+,2$ >PICKUP "ERROR MESSAGE’ POINTER 
BEQ 3$ = SKIP TYPEOQUT IF NO POINTER 


SEQ 0154 


CZR 


CZR os RP04/5/6 MLT-DR LGC 
P11 32 


06-JUN-79 08: 
6932 031046 104401 
6933 031050 000000 
6934 031052 104401 001165 
6935 031056 012037 031066 
6936 031062 001404 
6937 031064 104401 
6938 031066 000000 
6939 031070 104401 001165 
6940 031074 011000 
6941 031076 001004 
6942 031100 012600 
6943 031102 104401 001165 
6944 031106 000207 
6945 031110 
6946 031110 015046 
6947 031112 104402 
6948 031114 005710 
6949 031116 001770 
6950 031120 104401 031126 
6951 031124 000771 
6952 031126 020040 000 
6953 031132 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6965 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 031132 105737 001157 
6973 031136 100002 
6974 031140 000000 
6975 031142 000407 
6976 031144 010046 
6977 031146 917600 000002 
6978 031152 112046 
6979 031154 601005 
6980 031156 005726 
6981 031160 012600 
6982 031162 062716 000002 
6983 031166 000002 
6984 031170 122716 000011 
6985 031174 001430 
6986 031176 122716 000200 
6987 031202 001006 


MACY11 30A(1052) 


2$: 


3$: 


4$: 
5$: 
6$: 


7$: 


8$: 
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s TYPE THE ‘‘ERROR MESSAGE"’ 
“TETERROR MESSAGE"’ POINTER GOES HERE 
“CARRIAGE RETURN’ & “LINE FEED" 

> PICKUP “DATA HEADER’ POINTER 
+3 SKIP TYPEOUT IF 0 
; TYPE THE ‘‘DATA HEADER” 
> s"DATA HEADER'' POINTER GOES HERE 
: "CARRIAGE RETURN’ & "‘LINE FEED" 
:;PICKUP "DATA TABLE'’ POINTER 
3;G0 TYPE THE DATA 
> ;RESTORE RO 
7 "CARRIAGE RETURN’ & “‘LINE FEED" 
3 ;RETURN 


7; SAVE a(RO)+ FOR TYPEOUT 

3;G0 TYPE--OCTAL ASCII(ALL DIGITS) 
3;1S THERE ANOTHER NUMBER? 

;;BR IF NO 

si TYPE TwWO(2) SPACES 


03-suL-79 10:41 
ERROR MESSAGE TYPEOUT ROUTINE 
TYPE 
-wOoRD 0 
TYPE ,SCRLF 
MOV (RO)+,4% 
BEQ 
TYPE 
«WORD 0 
TYPE ,SCRLF 
MOV (RO) ,RO 
BNE 7$ 
MOV (SP)+,RO 
TYPE ,SCRLF 
RTS 
MOV a(R0)+,-(SP) 
TYPOC 
TST (RO) 
BEQ 6$ 
TYPE 8 
ue 7$ 
MTE 8 4 
EVEN 


~SBITL 


TYPE ROUTINE 


3;LOOP 
3; TwO(2) SPACES 


‘Wee eeeereeeeteeteeeeeeeeeeeeeeeetee teeter eeneereeeteneeeese 


>*ROUTINE TO TYPE ASCIZ MESSAGE. 


MESSAGE MUST TERMINATE WITH A O BYTE. 


>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


: *NOTE1: 
: *NOTE2: 
> *NOTES: 
© CALL 
:t TYPE 
+ *OR 
st TYPE 
yf MESADR 
eS 
$I YPE TSTB 
BPL 
HALT 
BR 
1$: MOV 
MOV 
2$: MOVB 
BNE 
TST 
60$: MOV 
3$: ADD 
RT] 
4$: CMPB 
BEQ 
CMPB 
BNE 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


3*1) USING A TRAP INSTRUCTION 
ADR 


»MES 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
(RO) +,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2,(SP) 


MHT, (SP) 


8% 
@CRLF 
5$ 


2 (SP) 


>:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3271S THERE A TERMINAL ? 
;;BR IF YES 
>: HALT HERE IF NO TERMINAL 


‘GET ADDRESS OF ASCI2Z STRING 
sPUSH CHARACTER TO BE TYPED ONTO STACK 
TBR If IT ISN'T THE TERMINATOR 
s:1F TERMINATOR POP IT OFF THE STACK 
+ RESTORE RO 
sADJUST RETURN PC 
+ RE TURN 
> :BRANCH IF <HT> 


;;BRANCH IF NOT <CRLF> 


SEQ 0135 
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FSOFRA NOLOSCWNOSC Ss 
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005726 


013746 
105366 


000207 


031346 


031302 
001156 


001154 
000001 


031302 
031346 


000040 
931302 
000007 


147642 


000002 
000015 


031346 
000012 
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O3-yUL-79 10:41 
TYPE ROUTINE 
TST (SP)¢ s;POP <CR><LF> EQUIV 
TYPE 3; TYPE A CR AND LF 
SCRLF 
CLRB SCHARCNT 7;CLEAR CHARACTER COUNT 
BR 23% >;GET NEXT CHARACTER 
5$: JSR PC, ,STYPEC 3;G0 TYPE THIS CHARACTER 
6$: CMPB SF ILLC,(SP)+ cit IT TIME FOR FILLER CHARS.? 


BNE 2$ s1F NO GO GET NEXT CHAR. 
MOV $NULL ,-(SP) GET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 
7$: DECB 1(SP) ;;DOES A NULL NEED TO BE TYPED? 
BLT 6$ >;BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC ,STYPEC 3;G0 TYPE A NULL 
DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
BR 7$ 3; LOOP 
sHORIZONTAL TAB PROCESSOR 
8$: MOVB a” (SP) ; REPLACE TAB WITH SPACE 
9$: JSR PC, STYPEC 3: TYPE A SPACE 
BITB #7,$CHARCNI ;;BRANCH IF NOT AT 
BNE 9$ 3; TAB STOP 
TST (SP) + ;:;POP SPACE OFF STACK 
BR 2$ 3;GET NEXT CHARACTER 
$TYPEC: TSTB astPs s;WALT UNTIL PRINTER IS READY 
BPL $TYPEC 
MOVB 2(SP),a$TPB >;LOAD CHAR TO BE TYPED iNTO DATA REG. 
CMPB #CR,2(SP) :;1S CHARACTER A CARRIAGE RETURN? 
BNE 1$ :;BRANCH IF NO 
CLRB SCHARCNi >; YES--CLEAR CHARACTER COUNT 
BR STYPEX ss€uil 
1$: CMPB @LF,2(SP) >:1S CHARACTER A LINE FEED? 
BEQ STYPEX ;;BRANCH IF YES 
INCB (PC)+ ;; COUNT THE CHARACTER 
$CHARCNT:.WORD O >: CHARACTER COUNT STORAGE 
STYPEX: RTS PC 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
s;eerereerererereerereerererereenererrennaneneneeeeesenereeeneeee 
:*THI]S ROUTINE 1S USED TO CHANGE A 16-B11 BINARY NUMBER TO A 6-DIGII 
s*OCTAL (ASCI1) NUMBER AND TYPE IT. 
:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
s*CALL: 
ie MOV NUM, =-(SP) : :NUMBER TO BE TYPED 
sf TYPOS 3;CALL FOR TYPEOUT 
.e BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS 10 TYPE 
3° -BYTE ™ :;M=1 OR 0 
sf >: 1=TYPE LEADING ZEROS 
if 3;0=SUPPRESS LEADING ZEROS 
* 


s*$TYPON@----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 
seCALL: 

NUM, =-(SP) 


se MOV >; NUMBER 10 BE TYPED 


SEQ 0156 


H 11 
Hiecee Oi RP04/5/6 MLT=-DR LGC MACY11 30A(1052) O3-JUL=79 10:41 PAGE 159 


RJDD.P11 06-JUN-79 08:32 BINARY TO OCTAL (ASCII) AND TYPE 
7044 39 TYPON CALL FOR TYPEOUT 
7045 3* 
7046 -*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7047 >*CALL: 
7048 :* MOV NUM, -(SP) ::NUMBER TO BE TYPED 
19 :* TYPOC +:CALL FOR TYPEOUT 
7051 031352 017646 000000 $TYPOS: MOV a(SP),-(SP) ::PICKUP THE MODE 
7052. 031356 116637 000001 031575 MOVB 1(SP),SOFILL s;LOAD ZERO FILL SWITCH 
7053 031364 112637 031577 MOVB (SP)+,$OMODE+1 ;:NUMBER OF DIGITS TO TYPE 
7054 031370 062716 000002 ADD #2, (SP) ; ADJUST RETURN ADDRESS 
7055 031374 000406 BR $TYPON 
7056 031376 112737 000001 031575 $TYPOC: MOVB #1, SOF ILL ::SET THE ZERO FILL SWITCH 
7057 031404 112737 000006 031577 MOVB #6,$0MODE+1 ::SET FOR SIX(6) DIGITS 
7058 031412 112737 000005 031574 $TYPON: MOVB #5,$0CNT ::SET THE ITERATION COUNT 
7059 031420 010346 MOV R3,-(SP) > SAVE R3 
7060 031422 010446 MOV RG,-(SP) >: SAVE RG 
7061 031424 010546 MOV R5,-(SP) >: SAVE RS 
7062 031426 113704 031577 MOVB SOMODE +1, R4 >:GET THE NUMBER OF DIGITS TO TYPE 
7063 031432 005404 NEG RG 
7064 031434 0627046 000006 ADD #6,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
7065 031440 110437 031576 MOVB R4 , SOMODE >:SAVE IT FOR USE 
7066 0314644 113704 031575 MOVB SOFILL,R4 =:GET THE ZERO FILL SWITCH 
7067 031450 016605 000012 MOV 12(SP),R5 ::PICKUP THE INPUT NUMBER 
7068 031454 005003 CLR R3 =:CLEAR THE OUTPUT WORD 
7069 031456 006105 1$: ROL R5 :;ROTATE MSB INTO ‘'C"' 
7070 031460 000404 BR 3$ ::G0 DO MSB 
7071 031462 006105 28: ROL RS ::FORM THIS DIGIT 
7072 031464 006105 ROL R5 
7073 031466 006105 ROL RS 
7074 031470 010503 MOV R5,R3 
7075 031472 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
7076 031474 105337 031576 DECB SOMODE :: TYPE THIS DIGIT? 
7077. 031500 100016 BPL 7$ :;BR IF NO 
7078 031502 042703 177770 BIC #177770,R3 ::GET RID OF JUNK 
7079 031506 001002 BNE 4$ =: TEST FOR 0 
7080 031510 005704 1ST RG >; SUPPRESS THIS 0? 
7081 031512 001403 BEQ 5$ ::BR IF YES 
7082 031514 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
7083 031516 052703 000060 BIS #'O,R3 > :MAKE THIS DIGIT ASCII 
7084 031522 052703 000040 5$: BIS #' RB >;MAKE ASCII IF NOT ALREADY 
7085 031526 110337 031572 MOVB R3,8% >;SAVE FOR TYPING 
7086 031532 104401 031572 TYPE 8S =:G0 TYPE THIS DIGIT 
7087 031536 105337 031574 7$: DECB SOCNT >;COUNT BY 1 
7088 031542 003347 BGT 2$ ::BR IF MORE TO DO 
7089 031544 002402 BLT 6$ -:BR IF DONE 
7090 031546 005204 INC RG >: INSURE LAST DIGIT ISN'T A BLANK 
7091 031550 000744 BR 2% ::G0 DO THE LAST DIGIT 
7092 031552 012605 o$: MOV (SP)+,R5 >: RESTORE RS 
7093 031554 012604 MOV (SP)*,RG > RESTORE R4 
7094 031556 012603 MOV (SP)+,R3 > :RESTORE R3 
7095 031560 016666 000002 000004 MOV 2(5P),4(SP) +:SET THE STACK FOR RETURNING 
7096 031566 012616 MOV (SP)+, (SP) 
7097 031570 000002 RT] 7 :RETURN 
7098 031572 000 8$: .BvYle 600 7; STORAGE FOR ASCII DIGI! 
7099 «031573 000 BYTE 0 >; TERMINATOR FOR TYPE ROUTINE 


CZRJDDO, RPOG/5/6 MLT=-DR LGC 
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MmMNn —— A eS eS 


7123 


031574 
031575 
031576 


031600 


31672 


PE PEPE AEE LA AAA 
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000 
000 
000000 


116663 


020200 
000020 
000055 


032014 
000040 


032004 


000001 
009060 
000040 


000010 


177777 


MACY11 30A(1052) 


000001 


177777 


177776 
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1 11 
PAGE 140 


BINARY TO OCTAL (ASCII) AND TYPE 


SOCNT: 


SOFILL: 
SOMODE : 


~SBTTL 


-BYTE 
BYTE 
WORD 


0 
0 
0 


7;OCTAL DIGIT COUNTER 
3;ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ppeeeeeeereereerereerereerreterteeereteeeeeneeKeeeeeReeeeeEe eee 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
7 *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


3*CALL: 


- 
. 


STYPDS: 


1$: 


2%: 
3$: 


4$: 


&$: 


MOV 
DS 


NUM,=-(SP) 


RO,-(SP) 


#26200, -(SP) 
20(SP),R5 

1$ 

R5 

w*=,1(SP) 

RO 


#$DBLK ,R3 
#' ,(R3}+ 


Re 
a 


’ 


;;PUT THE BINARY NUMBER ON THE STACK 
;:GO TO THE ROUTINE 


>;PUSH RO ON STACK 

:;PUSH R1 ON STACK 

3:PUSH R2 ON STACK 

>;PUSH R3 ON STACK 

>;PUSH R5 ON STACK 

3;SET BLANK SWITCH AND SIGN 
:;GET THE INPUT NUMBER 

::;BR IF INPUT IS POS. 

> :;MAKE THE BINARY NUMBER POS. 
> :MAKE THE ASCII] NUMBER NEG. 
3;ZERO THE CONSTANTS INDEX 
3:SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
:;CLEAR THE BCD NUMBER 

3:GET THE CONSTANT 

>;FORM THIS BCD DIGIT 

>;BR IF DONE 

>; INCREASE THE BCD DIGIT BY 1 


:;ADD BACK THE CONSTANT 

>; CHECK IF BCD DIGIT=0 

>; FALL THROUGH IF 0 
siSTILL + LEADING 0'S? 


7: YES--SET THE SIGN 
>;MAKE THE BCD DIGIT ASCII 
7:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
7;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;: JUST INCREMENTING 
7;CHECK THE TABLE INDEX 
3:60 DO THE NEXT DIGIT 
3:G0 TO EXtT 
3:GET THE LSD 
;;G0 CHANGE TO ASCII 
i WAS Me LSD THE FIRST NON@ZERO? 
IF NO 


9$ ;BR 
-1(SP),*2(R5) TLYES==SE! THE SIGN FOR TYPING 


SEG 0138 
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CZRIOD.P11 06-JUN-79 08:32 
7156 031752 105013 
7157) 031754 012605 
7158 031756 012603 
7159 031760 012602 
7160 031762 012601 
7161 031764 012600 
7162 031766 104401 032014 
7163 031772 016666 
7164 032000 01261 
7165 032002 000002 
7166 032004 023420 
7167 032006 001750 
7168 032010 000144 
7169 032012 000012 
7170 032014 000004 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
71? 
7179 
7180 
7181 
7182 032024 022737 
7183 032032 001074 
7184 032034 105777 147104 
7185 032040 100071 
7186 032042 117746 147100 
7187 032046 042716 177600 
7188 032052 022726 000007 
7189 032056 001062 
7190 032060 123727 001134 
tee 032066 001456 
7193 032070 104401 032433 
7194 032074 104401 052440 
7195 032100 013746 000176 
7196 032104 104402 
7197 032106 104401 032451 
7198 032112 005046 
7199 032114 005046 
7200 032116 105777 147022 
7201 032122 100375 
7202 
7205 032124 117746 147016 
7204 032130 042716 177600 
7205 
7206 
7207 
7208 032134 021627 000025 
7209 032140 001005 
7210 032142 104401 032426 
7211 032146 062706 000006 
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000002 000004 


000176 001140 


000001 


9 


$ 


$ 


Jv 
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CONVERT BINARY TO DECIMAL AND TYPe ROUTINE 


$: CLRB (R3) 3;SET THE TERMINATOR 
MOV (SP)+,R5 :;POP STACK INTO R5 
MOV (SP)4+,R3 ::POP STACK INTO R3 
MOV (SP)4#,R2 >;POP STACK INTO R2 
MOV (SP)+,R1 :;POP STACK INTO RI 
MOV (SP)+,RO :;POP STACK INTO RO 
TYPE , SOBLK ;;NOW TYPE THE NUMBER 
MOV 2(SP) ,4°SP) > ADJUST THE STACK 
MOV (SP)+, (SP) 

11 > RETURN TO USER 

DTBL: 10000 
1000. 
100. 
10. 

DBLK: .BLKW 4 

-SBTTL TTY INPUT ROUTINE 


**@eeetaereeeteerreeteeeeeeeteeeeeeeeteeeeeeeeteeeeeeeteteneeeeeteene 


“ENABL LSB 


eee eeeeeeeeeeeeeeeeeetereneneteeeeeeeereeeeeAeeeeeeTenesetereee 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


$ 


$ 


9 


2 


CKSWR: CMP #SWREG, SWR z:1S THE SOFT<SWR SELECTED? 
BNE 15$ ;;BRANCH IF NO 
TSTB astKs :; CHAR THERE? 
BPL 15% sz 1F NO, DON'T WAIT AROUND 
MOVB asTKB,-(SP) 7: SAVE THE CHAR 
BIC #*°C177, (SP) >; STRIP-OFF THE ASCil 
CMP #7,(SP)¢ 3:18 11 A CONTROL G? 
BNE 15$ :;NO, RETURN TO USER 
CMPB $AUTOB,#1 >; ARE WE RUNNING IN AUTO=MODE? 
BEQ 15$ > ;BRANCH IF YES 
TYPE »SCNILG 3;ECHO THE CONTROL=G (*G) 
GTSWR: TYPE , SMSWR >; TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) >; SAVE SWREG FOR TYPEQUT 
TYPOC 3:GO TYPE=-OCTAL ASCIICALL DIGITS) 
TYPE , SMNEW s;PROMPT FOR NEW SWR 
9$ CLR - (SP) 3; CLEAR COUNTER 
CLR - (SP) 77 THE NEW SWR 
+) TSTB astKs >;CHAR THERE? 
BPL 7% s;1F NOT TRY AGAIN 
MOVB a$1KB,- (SP) s;P1CK UP CHAR 
81C #*C177, (SP) :;MAKE IT 7-BIT ASCII 
$: CMP (SP) ,#25 31S 17 A CONTROL=-U? 
BNE 10% > ;BRANCH IF NOT 
TYPE »SCNTLU 77 YES, ECHO CONTROL*U (“U) 
O$: ADD #6,SP :; 1GNORE PREVIOUS INPUT 


SEQ 0139 


ee | 
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CZRIDD.P11 
7212 032152 
721 
7214 
7215 032154 
7216 032160 
7217 032162 
7218 032166 
7219 032170 
7220 032176 
7221 032202 
7222 032206 
7223 032214 
7224 032216 
7225 032224 
7226 032226 
7227 032232 
7228 032236 
7229 032240 
7230 032244 
7231 032246 
7232 032252 
7233 032256 
7234 032260 
7235 032262 
7236 032264 
7237 032266 
7238 032272 
7239 032276 
7240 032300 
7241 032304 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 032306 
7254 032310 
7255 032316 
7256 032322 
7257 032324 
7258 032352 
7259 032340 
7260 032346 
7261 032350 
7262 032354 
7263 032356 
7264 032362 
7265 032366 
7266 032372 
7267 032374 


000757 


021627 


000720 


000750 


000015 
000004 
000002 
000006 
001165 
001135 
000100 


031302 
000060 


000067 


900060 
000002 


000002 
177776 


001164 


000004 
146622 


146616 
177600 
000004 


146570 
146564 


177600 
000021 


MACY11 


146742 


000001 
146720 


0090002 


000004 
000004 
000023 
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TTY INPUT ROUTINE 


BR 19% :;LET'S TRY IT AGAIN 
108: CMP (SP), #15 z318 11 A <CR>? 
BNE 16% ;;BRANCH IF NO 
TST 4(SP) s7;YES, IS IT THE FIRST CHAR? 
BEQ 11$ ;;BRANCH IF YES 
MOV 2(SP) ,aSwR 7; SAVE NEW SWR 
11$: ADD #6,SP 7;CLEAR UP STACK 
148: TYPE ,SCRLF :;ECHO <CR> AND <LF> 
CMPS SINTAG,#1 7 ;RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ :;BRANCH IF NOT 
MOV #100,a$TKS > RE-ENABLE TTY KBD INTERRUPTS 
15$: RT1 3; RETURN 
16$: JSR PC, STYPEC 77;ECHO CHAR 
CMP (SP), #60 si CHAR < 0? 
BLT 18% 7;BRANCH IF YES 
CMP (SP) ,#67 :;CHAR > 7? 
BGT 18$ :;BRANCH IF YES 
BIC #60,(SP)+¢ :;STRIP-OFF ASCII 
TST 2(SP) ::1S THIS THE FIRST CHAR 
BEQ 17$ > BRANCH IF YES 
ASL (SP) s3NO, SHIFT PRESENT 
ASL (SP) 33 CHAR OVER TO MAKE 
ASL (SP) Si ROOM FOR NEW ONE. 
17$: INC 2(SP) 7: KEEP COUNT OF CHAR 
BIS -2(SP), (SP) :;SET IN NEW CHAR 
Rr 7$ :;GET THE NEXT ONE 
18$: TYPE ,SQUES si TYPE 2?<CR><LF> 
20% >; SIMULATE CONTROL-U 


BR 
-DSABL LSB 


“eee eneeeeeeeeeeeeeeeeeeeeee tere eee eeeeeetene 


S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL: 
yf RDCHR >; INPUT A SINGLE CHARACTER FROM THE TTY 
yt RETURN HERE :: CHARACTER IS ON THE STACK 
s@ srWI1TH PARITY BIT STRIPPED QFF 
SRDCHR: MOV (SP) ,-(SP) 37;PUSH DOWN THE PC 
MOV 4(SP),2(SP) is SAVE THE PS 
1$: TSTB asTKs WAIT FOR 
BPL 1$ a, CHARACTER 
MOVB a$TKB,4(SP) sREAD THE TTY 
BIC #*°C<177>,4(SP) GET RID OF JUNK IF ANY 
CMP 4(SP) ,#23 3:18 17 & CONTROLS? 
BNE 3$ ;;BRANCH IF NO 
2s: TSTB asTKs :;WAIT FOR A CHARACTER 
BPL 2$ ;;LOOP UNTIL ITS THERE 
MOVB a$TKB,-(SP) ::GET CHARACTER 
BIC #°C177, (SP) >;MAKE IT 7-BIT ASCII 
CMP (SP)+,#21 3:18 17 A CONTROL-Q? 
BNE 2$ sr 1F NOT DISCARD IT 
BR 1$ 77 YES, RESUME 


SEQ 0140 


i 
' 
re SS SD See steerer 
































CZRIOD.P11 


7268 032376 
7269 032404 


7279 032456 


7292 032462 


7316 032562 


026627 


123456 


CZRJDDO, RPOG/5/6 MLT-DR LGC 
06-JUN-79 08:32 


000004 
000004 
000040 
005015 


047040 
000040 


032562 


032560 
001057 


047401 
032562 
032560 
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000140 
000175 
000004 

000 
000012 
020122 


053505 


TTY INPUT ROUTINE 


3$: CMP 4(SP),#140 7:18 17 UPPER CASE? 
BLT 4% ; ;BRANCH IF YES 
CMP 4(SP),#175 7318 11 A SPECIAL CHAR? 
BGT 4% >; BRANCH IF YES 
BIC #40,4(SP) s7MAKE IT UPPER CASE 


4$: RTi 3:;G0 BACK TO USER 
SCNTLU: .ASCIZ /*U/<15><12> >: CONTROL ‘‘U"' 
SCNTLG: .ASCIZ /*G/<15><12> 3;CONTROL ‘'G"’ 
SMSWR: .ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ / NEW = / 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


ppeeeeeeeeerrereeeeeeeTereeeeeAeeTee eee eee eee eT eRe e Nee eee 
;*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
s*W1TH A RANGE OF 0 TO 2(+33)-1. 


s*CALL: 
3* JSR PC, $RAND 3;CALL THE ROUTINE 
sf RETURN ;;RETURN HERE THE RANDOM 
:* ;;NUMBER WILL BE IN 
3* >: SHINUM,SLONUM 
SRAND: 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,-(SP) 7;PUSH R1 ON STACK 
MOV R2,-(SP) >:PUSH R2 ON STACK 
MOV $LONUM,RO 3:SET RO WITH LOW 
MOV SHINUM,R1 ::SET R1 WITH HIGH 
MOV #-7,R2 3;SET SHIFT COUNT 
1$ ASL RO 3; SHIFT RO LEFT AND 
ROL R1 :;ROTATE CARRY INTO R1 AND 
INC R2 - 3; CHECK FOR DONE 
BNE 1$ >; CONTINUE SHIFT LOOP 
ADD $LONUM,RO >;ADD NUMBER TO MAKE xX 129 
ADC R1 3: PROPOGATE CARRY 
ADD SHINUM,R1 ::ADD NUMBER TO MAKE X 129 
ADD #1057,R0 :;ADD LOW CONSTANT 
ADC R1 > ;PROPOGATE CARRY 
ADD #47401,R1 3;ADD HIGH CONSTANT 
MOV RO,$LONUM 3; SAVE RO 
MOV R1,$HINUM s SAVE R1 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO RI 
MOV (SP)+,RO ::POP STACK INTO RO 
RTS PC 7 ;RETURN 


$SHINUM: .WORD 176543 
SLONUM: .WORD 123456 


.SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


CEP PPR RRR ER RRERRRRRRRER RRR RR RE RRR RR RRR RRR RR RRR RRR RR RR RRR RRR RRR EDS S| 


**SAVE RO-RS 
s*CALL: 
SAVREG 








SEQ 0141 


#11 
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CZRJDOD.P11 06-JUN-79 08:32 SAVE AND RESTORE RO-R5S ROUTINES SEQ 0142 
rose ;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
7326 3 *TOP---(+16) 
7327 3* +2---(+18) 
7328 pe 44=--R5 
7329 yt 4+6---R4 
7330 yt 4+B---R35 
7331 3#410---R2 
7332 p#412---R1 
7333 *414---R0 
7334 
7335 032564 SSAVREG: 
336 032564 010046 MOV RO,-4SP) 7;PUSH RO ON STACK 
7337 032566 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
7338 032570 010246 MOV R2,-(SP) 77;PUSH R2 ON STACK 
7339 032572 010346 MOV R3,-(SP) 7;PUSH R3 ON STACK 
7340 032574 010446 MOV R4,-(SP) ;;PUSH R4& ON STACK 
7341 032576 010546 MOV R5,-(SP) >7PUSH RS ON STACK 
7342 032600 016646 000022 MOV 22(SP) ,-(SP) 37; SAVE PS OF MAIN FLOW 
7343 032604 016646 900022 MOV 22(SP) ,-(SP) 7;SAVE PC OF MAIN FLOW 
7344 032610 016646 000022 MOV 22(SP),-(SP) 3;SAVE PS OF CALL 
7345 032614 016646 000022 MOV 22(SP) ,-(SP) 3; SAVE PC OF CALL 
7346 032620 000002 R11 
7347 
7348 s*RESTORE RO-RS 
7349 . iis 
7350 sf RESREG 
7351 032622 $RESREG: 
7352 032622 012666 000022 MOV (SP)+,22(SP) s RESTORE PC CG, CALL 
7353 032626 012666 000022 MOV (SP)+,22(SP) s RESTORE PS OF CALL 
7354 032632 012666 000022 MOV (SP)+,22(SP) s RESTORE PC OF MAIN FLOW 
7355 032636 012666 000022 MOV (SP)+,22(SP) > :RESTORE PS OF MAIN FLOW 
7356 032642 012605 MOV (SP)+,R5 :;POP STACK INTO R5 
7357 032644 012604 MOV (SP)+,R4& :;POP STACK INTO R4 
7358 032646 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
7359 032650 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
7360 032652 012601 MOV (SP)+,R1 :;POP STACK INTO R1 
7361 032654 012600 MOV (SP)+,RO :;POP STACK INTO RO 
hve 032656 000002 RTI 
pane .SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII] CONVERT ROUTINE 
ries sp eeeaeeereetereereerereserereeeKAeeeeeAAeeeAAeT eee HKeRAKeAAAee 
7367 :*THIS ROUTINE WILL CONVERT A 32-B1T BINARY NUMBER TO AN UNSIGNED 
7368 :*DECIMAL (ASCI1) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
7369 s*POSITIVE. 
7370 7*CALL 
7371 se MOV #PNTR,-(SP) s POINTER TO LOW WORD OF BINARY NUMBER 
7372 3° JSR PC ,a#$DB2D 
7373 22 RETURN 7; THE FIRST ADDRESS OF ASCIZ 
7374 3:18 ON THE STACK 
7375 
7376 
7377 032660 104412 $P)B2D: SAVREG 7: SAVE REGISTERS 
7378 032662 016602 000002 MOV 2(SP),R2 s;PICKUP THE DATA POINTER 
7379 032666 012700 033040 MOV #$DECVL,RO ::GET ADDRESS OF ‘$DECVL*’ STRING 
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CZRJDD.P11 06-JUN-79 08:32 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE SEQ 0143 
7380 032672 010066 000002 MOV RO,2(SP) z7PUT ADDRESS OF ASCIZ STRING ON STACK 
7381 032676 012201 Mov (R2)4,R1 7;PICKUP THE BINARY NUMBER 
7382 032700 012202 MOV (R2)+,R2 
7383 032702 012737 000012 032756 MOV #10.,4$ SET UP TO DO 10 CONVERSIONS 

3 032710 012704 032770 MOV #STNPWR RG ADDRESS OF TEN POWER 
7385 032714 012705 032772 MOV #STNPWR42,R5S , 
7386 032720 005003 1$: CLR R3 CLEAR PARTIAL 6 
7387 032722 161401 2$: SUB (R4),R1 >; SUBTRACT TEN POWER 
7388 032724 005602 SBC R2 
7389 032726 161502 SuB (R5),R2 
7390 032730 002402 BLT 38 s2BR IF TEN ree TO LARGE 
7391 032732 005203 INC R3 _. 1 TO PARTIA 
7392 032734 000772 BR 2% 
7393 032736 062401 3$: ADD (R4)+,R1 SE STORE SUBTRACTED VALUE 
7394 032740 005502 ADC R2 
7395 032742 062402 ADD (R4)+,R2 
7396 032744 022525 CMP (R5)+,(R5)¢ MOVE TO NEXT TEN POWER 
7397 032746 052703 000060 BIS #°0,R3 >:CHANGE PARTIAL TO ASCII 
7398 032752 110320 MOVE R3,(RO)+ >;SAVE IT 
7399 032754 005327 DEC (PC)¢ >: DONE? 
7400 032756 000000 4$: «WORD 0 
7401 032760 001357 BNE 1$ ::BR IF NO 
7402 032762 105020 CLRB (RO) >; TERMINATOR 
7403 032764 104413 RESREG : RESTORE REGISTERS 
7404 032766 000207 RTS PC >: RETURN 
7405 032770 145000 STNPWR: 145000 731.0609 
7406 032772 035632 35632 
7407 032774 160400 160400 271.0608 
7408 032776 002765 2765 
7409 033000 113200 113200 721.0607 
7410 033002 000230 230 
7411 033004 041100 041100 7:1.0€06 
7412 033006 000017 17 
7413 033010 103240 103240 771.0605 
7414 033012 000001 1 
7415 033014 023420 23420 331.0604 
7416 033016 000000 0 
7417 033020 001750 1750 2:1.0E03 
7418 033022 000000 0 
7419 033024 000144 144 721.0602 
7420 033026 000000 0 
7421 033030 000012 12 731.0601 
7422 033032 000000 0 
7423 033034 000001 1 ::1.0E00 
7424 033036 000000 0 
roes 033040 000014 $DECVL: .BLKB- 12. r RESERVE STORAGE FOR ASCIZ STRING 
426 
7427 .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
pose Pier eatererererererenererereeereseteeereeeereeeeeeeeeneeeeeeeeeet 
7430 s*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
7431 :*UNSIGNED OCTAL ASCIZ NUMBER. 
7432 7 *CALL 
7433 it MOV #PNTR,-(SP) > POINTER TO LOW WORD OF BINARY NUMBER 
7434 3 JSR PC ,a#$DB20 >;CALL THE ROUTINE 


3: THE ADDRESS OF The FIRST ASCIZ CHAR, 1S ON Tre STALE 
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$DB20: SAVREG 7; SAVE ALL REGISTERS 
MOV 2(SP),R1 s;PICKUP THE POINTER TO LOW WORD 
MOV #SOCTVL*+13.,R5 ;;POINTER TO DATA TABLE 
MOV #12.,R4 3;D0 ELEVEN CHARACTERS 
MOV #*C7,R3 7 MASK 
MOV (R1)+,R0 ;;LOWER WORD 
MOV (R1)4,R1 :;HIGH WORD 
CLR R2 3; TERMINATOR 
1$: MOvB R2,-(R5) >;PUT CHARACTER IN DATA TABLE 
MOV RO,R2 3;GET THIS DIGIT 
DEC R4 3; COUNT THIS CHARACTER 
BGT 3$ 3;BR IF NOT THE LAST DIGIT 
BEQ 2$ ::;BR IF IT IS THE LAST DIGIT 
INC R5 >;ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
MOV R5,2(SP) ;;ASCIZ CHAR. & PUT IT ON THE STACK 
RESREG > RESTORE ALL REGISTERS 
RTS PC ; RETURN TO USER 
2s: ASR R3 s:POSITION THE MASK FOR THE LAST DIGIT 
53% ROR R1 :;POSITION THE BINARY NUMBER FOR 
ROR RO :3 THE NEXT OCTAL DIGIT 
ROR R1 
ROR RO 
ROR R1 
ROR RO 
BIC R3,R2 >:MASK OUT ALL JUNK 
ADD #'0O,R2 > 7MAKE THIS CHAR. ASCI1 
BR 1$ 3:G0 PUT IT IN THE DATA TABLE 
$OCTVL: .BLKB 14. > ;RESERVE DATA TABLE 


-SBTTL TRAP DECODER 


ppeeeeeeterttetteeteeetetteteetee ere rete A tee tee eee Tee 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
:*AND USE 11 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*60 TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7; SAVE RO 
MOV 2(SP),RO :;GET TRAP ADDRESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO +3GET RIGHT BYTE OF TRAP 
ASL RO :POSITION FOR INDEXING 
MOV $STRPAD(RO) ,RO i INDEX TO TABLE 
RTS RO ;GO TO ROUTINE 


:; THIS 1S USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,-(SP) ;:MOVE THE PC DOWN 
MOV 4(SP),2(SP) ;:MOVE THE PSwW DOWN 
RT] ;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


SEQ = 


co  - vs - -- ea 
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>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
;*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD 
$TYPE 


$TYPOC 
$TYPOS 
$TYPON 
STYPDS 


SGTSWR 
SCKSWR 


SROCHR 
SRDLIN 


SSAVREG ; 


SRESREG 
SDSPLY 
STERM=.-STRPAD 


STRAP2 

3; CALL=TYPE 
3; CALL=TYPOC 
3; CALL=TYPOS 
3;CALL=TYPON 
7; CALL=TYPDS 


3; CALL=GTSWR 


3; CALL=CKSWR 
3; CALL=RDCHR 
3; CALL=ROLIN 
; CALL=SAVREG 
3; CALL=RESREG 
3; CALL=DISPLY 


TRAP#+1(104401) 
TRAP#+2(104402) 
TRAP+3(104403) 
TRAP+4(104404) 
TRAP+5( 104405) 


TRAP+6( 104406) 


TRAP+7(104407) 

TRAP+10(104410) 
TRAP#+11(104411) 
TRAP#+12(104412) 
TRAP+13(104413) 
TRAP+14(104414) 


| 


SEQ 0145 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 

SAVE RO-R5 ROUTINE 

RESTORE RO-R5 ROUTINE 

ROUTINE TO TYPE ERROR MESSAGES 


peeteereererereeeerreneeeeeeeeeeeeeeeeeeeeeeneeekereeetenneeeeeee 


-SBTTL SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976,1979 
;DIGITAL EQUIPMENT CORP. 
sMAYNARD, MA 01754 


skeet eeeeeeeteeteeeeeneeeeeeeeereeeeneeneaReeAeeneKeeteeeneteeee 


;STORAGE FOR RPDS1, RPER1, RPER2, AND RPER3 ON AN ERROR °'2"' 
;RPERRS 


“RPERRS+#2 = RPERI 
“RPERRS+4 = 
“RPERRS+6 = 


RPERRS: .WORD 


= RPDS! 


RPER2 
RPERS 


0,0,0,0 


7 TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 


;DRVACT 


=0 IF ORIVE IS IDLE 


sDRVACT>O if DRIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


CooOCOCCCOCoO 


9 
Zz 
-_ 
< 
mm 
NOW EW" O 


:DRIVE 


aon 


D 12 
CZRJDDO, RPOG/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL=79 10:41 PAGE 


148 
CZRJDD.P11 06-JUN-79 08:32 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0146 
7548 
7549 : TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
7550 sORVSTA=0 IF DRIVE 1S OFFLINE OR NONEXSITENT 
7551 sDRVSTA>O IF DRIVE IS ONLINE 
228 sDRVSTA<O IF DRIVE 1S UNSAFE 
7554 033302 000 DRVSTA: .BYTE 0 sORIVE 0 
7555 033303 000 BYTE 0 sORIVE 1 
7556 033304 000 -BYTE 0 sDRIVE 2 
7557 033305 000 BYTE 0 sDRIVE % 
7558 033306 000 -BYTE 0 sDRIVE 4 
7559 033307 000 -BYTE 0 sDRIVE 5 
7560 033310 000 BYTE 0 sDRIVE 6 
ze) 033311 000 .BYTE 0 DRIVE 7 
7563 TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
7564 sDRVTYP=0 IF DRIVE 1S NONEXISTENT (DRVSTA=0, ALSO) 
7565 sDRVTYP=1 IF DRIVE 1S RPO4 
7566 sORVTYP=2 IF DRIVE IS RPOS 
7567 sDRVTYP=4 IF DRIVE IS RPO6 
fp sDRVTYP=-1 IF NOT RP04/5/6 
6 
7570 033312 000 DRVTYP: .BYTE 0 sDRIVE 0 
7571 033313 000 -BYTE 0 sDRIVE 1 
7572 033314 000 -BYTE 0 sDRIVE 2 
7573 «033315 000 .BYTE 0 sORIVE 3 
7574 033316 090 -BYTE 0 sDRIVE 4 
7575 033317 000 .BYTE 0 sDRIVE 5 
7576 033320 000 .BYTE 0 sORIVE 6 
eh 033321 000 .BYTE 0 sDRIVE 7 
7579 : TABLE OF DUAL PORT INITIALIZATION INDICATORS 
7580 sDPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
+4 :DPINT<O IF INITIALIZATION IS IN PROGRESS 
7583 033322 000 DPINT: .BYTE 0 sDRIVE 0 
7584 033323 000 .BYTE 0 sDORIVE 1 
7585 033324 000 -BYTE 0 sDRIVE 2 
7586 033325 000 .BYTE 0 sDRIVE 3 
7587 033326 000 .BYTE 0 sDRIVE 4 
7588 033327 000 BYTE 0 sDRIVE 5 
7589 033330 000 .BYTE 0 sORIVE 6 
fas 033331 000 -BYTE 0 sDRIVE 7 
7592 : TABLE OF PENDING DUAL PORT REQUESTS 
7593 :DPROS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
7594 so pmancs If THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
7595 
7596 033332 000 DPRQS: .BYTE 0 sDRIVE 0 
7597 033333 000 BYTE 0 sDRIVE 1 
7598 033334 000 BYTE 0 sDRIVE 2 
7599 033335 000 BYTE 0 sDRIVE 3 
7600 033336 000 BYTE 0 sDRIVE 4 
7601 033337 000 BYTE 0 sDRIVE 5 
7602 033340 000 BYTE 0 sDRIVE 6 
7603 033341 000 BYTE 0 sDRIVE 7 


DOO ————————— eee 
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; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
THIS 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
:"DPB’ OF THE 1/0 OPERATION. 


TRNSWT: .WORD 0 


;SEARCH WAIT KEYS (SRCHWT=1 WORD) 
;THIS 1S A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
; THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND eg THE 1/0 
;REQUEST THAT 1S AT THE TOP OF THEIR REQUEST QUEU 
EACH DRIVE 1S ASSIGNED ONE BIT, STARTING AT B1T00" FOR DRIVE 0. 


SRCHWT: .WORD 0 


3RP04/5/6 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
s;ACTDORV=0 IF DRIVER IS INACTIVE 
;ACTDRV>O IF DRIVER IS ACTIVE 


ACTDRV: .BYTE 0 


;SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE 0 


UNLOAD FLAG (ULDFLG=8 BYTES) 
;ULDFLG=0 IF NO UNLOAD COMMAND 
;ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<0O IF UNLOAD COMMAND IN WAIT QUEUE 


ULDFLG: .BYTE 0 sORIVE 0 
-BYTE 0 sDRIVE 1 
-BYTE 0 sDRIVE 2 
OTE Q ;ORIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0 sORIVE 5 
-BYTE 0 DRIVE 6 
-BYTE 0 sDRIVE 7 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 
;LACNT WILL INDICATE THE NUMBER GF LOOK AHEADS PERFORMED 


LACNT: .BYTE 0 sDRIVE 0 
BYTE 0 DRIVE 1 
.BYTE 0 DRIVE 2 
BYTE 0 sDRIiVE 3 
BYTE 0 sDRIVE 4 
BYTE 0 sDRIVE 5 
.BYTE 0 sORIVE 6 
~BYTE 0 sDRIVE 7 


SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
sSAVEFG <0 JF SAVE THE RHI1/RPO04S/5/6 REGISTERS WHEN THE 


SEQ 0147 
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OPERATION 1S COMPLETED AS PER (DPB+14). 
SAVEFG=0 IF SAVE THE RH11/RP04/5/6 REGISTERS, AS PER 
;(DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


SEEK FLAG (SEEKFG=1 WORD) 
:SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
;FOR A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD THE WINDOW 


SEEKFG: .WwORD 0 


; TIMEOUT TABLE (TIMER=8 WORDS) 
> THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD =1 DRIVE 0 
~ WORD -1 sDORIVE 1 
«WORD =! sDRIVE 2 
-WORD -1 DRIVE 3 
~ WORD -1 sDRIVE 4 
«WORD =1 sDRIVE 5 
-WORD =] sDRIVE 6 
-WORD -1 sDRIVE 7 


DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
:DTUW<O IF NO DATA TRANSFER UNDERWAY 
;DTUW=*N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: -WORD -1 
ATTENTION BITS TABLE (ATABIT=8 BYTES) 


> THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
ATTENTION BIT 


ATABIT: .BYTE 1 sDRIVE O 
BYTE 2 sORIVE 1 
BYTE 4 sORIVE 2 
BYTE 10 sDRIVE 3 
BYTE 20 sDRIVE 4 
BYTE 40 sDRIVE 5 
BYTE 100 sDRIVE 6 
BYTE 200 sDRIVE 7 


7RP04/5/6 TO RH11 ‘"MASSBUS CONTROL BUS PARITY ERRORS" (MCPE) ALLOWED BEFORE 
CALLING 17 FATAL (MCPEMX=1 WORD) 


MCPEMX: .WwORD 3 


sSTORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6), 
*RPVE( (THE VECTOR ADDRESS (254)), AND RPVEC*2 (THE BR LEVEL (5)). 


RPADR: .WORD 176700 
RPVEC: .WORD 254,5832. 


SEQ 0148 
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i ;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED iS 4 (MXLACT=1 WORD) 
7718 033436 000004 MXLACT: .WORD 4 
aan ;MAXIMUM DELTA DELAY 1S 8 SECTORS (MXDLTA=1 WORD) 
7721 033440 001000 MXDLTA: .WORD 8.64 
rise :MINIMUM DELTA DELAY 1S 2 SECTORS (MNDLTA=1 WORD) 
7724 033442 000200 MNDLTA: .WORD 2*64. 
res MAXIMUM SEARCH FOR 1/0 WINDOW 1S 5 SECTORS (MXWNDW=1 WORD) 
4634 033444 000005 MXWNDW: .WORD 5 
4644 DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES 
773) 000000 RPCS1=0 CONTROL AND STATUS REGISTER #1 ity REG. 00) 
7732 000002 RPWC=2 :WORD COUNT REGISTER (NOT A DRIVE R 
7733 000004 RPBA= sUNIBUS ADDRESS REGISTER (NOT A DRIVE a6) 
7734 000006 RPDA=6 DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
7735 000010 RPCS2=10 CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
7736 000012 RPDS1=12 “DRIVE STATUS REGISTER (DRIVE REG 01) 
7737 000014 RPER1=14 sERROR REGISTER #1 (DRIVE REG. 02) 
7738 000016 RPAS=16 ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
7739 000020 RPLA=20 LOOK AHEAD REGISTER (DRIVE REG. 07) 
7740 000022 RPDB=22 :DATA BUFFER REGISTER (NOT A DRIVE REG. 
7741 000024 RPMR=24 “MAINTAINABILITY REGISTER (DRIVE REG. 63) 
7742 000026 RPDT=26 :DRIVE TYPE REGISTER (DRIVE REG. 06) 
7743 000030 RPSN=30 ‘SERIAL NUMBER REGISTER (DRIVE REG. 10) 
7744 000032 RPOF =32 OFFSET REGISTER (DRIVE REG. 11) 
7745 000034 RPCA=34 =DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
7746 000036 RPCC=36 CURRENT CYLINDER ADDRESS REGISIER (DRIVE REG. 13) 
7747 000040 RPER2=40 sERROR REGISTER #2 (DRIVE REG. 14) 
7748 000042 RPER3=42 ERROR REGISTER #3 (DRIVE REG. 15) 
7749 000044 RPEC1=44 sECC POSITION REGISTER (DRIVE REG. 16) 
4a] 000046 RPEC2=46 :ECC PATTERN REGISTER (DRIVE RES. 17) 
7752 :RH11/RPO4/5/6 DRIVER INITIALIZATION CODE 
7753 THIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE 
7754 “AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
7755 :T0 THE PROPER STATE FOR EACH DRIVE. 
7756 NOTE: THIS ROUTINE CALLS DRVINT 
7757 ; 
7758 : CALL 
7759 : 
7760 : JSR PC,RPINIT 
7761 ; RETURN 
7762 ; 
7763 ;NOTE: THE 'P" OR "L* CLOCK MUST BE STARTED 
7764 
7765 033446 104412 RPINIT: SAVREG SAVE RO = R5 
7766 033450 013746 177776 MOV aaPS,-(SP) >SAVE THE PRESENT PROCESSOR STATUS 
7767 033454 012737 000240 177776 MOV #<5*32.>,aMPS  ;:CHANGE THE PRIORITY TO 5 
7768 033462 004737 041600 JSR PC, CLRQUE CLEAR ALL REQUEST QUEUES 
7769 033466 012701 033262 MOV WRPERRS,R1 sFIRST ADDRESS TO BE CLEARED 
7770 033472 012702 033372 MOV #SEEKFG,R2 sLAST ADDRESS TO BE CLEARED 
03 005021 (R1)¢ > CLEAR 





ew, RP04/5/6 MLT=-DR LGC 
P11 06-JUN-79 08:32 


CZRJDD 


033656 


020102 


000207 


010546 
105061 
105061 
105061 
010164 
112764 


033660 


933302 
177770 
000007 
177776 
033322 


041234 
033322 


177776 


MACY11 30A(1052) 


000010 


H 12 
O03-JUL-79 10:41 PAGE 152 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 
8$: 


CMP R1,R2 ARE WE DONE? 

BLOS 1$ ;BRANCH IF NO 

MOV #DTUW,R2 ;LAST ADDRESS 

MOV #-1,(R1)¢ s INITIALIZE 

CMP R1,R2 DONE? 

BLOS 2$ ;LOOP IF NO 

CLR DRVSTA 7SET ALL DRIVES TO OFFLINE 
CLR DRVSTA42 

CLR DRVSTA+4 

CLR DRVSTA*+6 

MOV RPVEC,R35 ;SETUP THE RH11/RP04/5/6 VECTOR 
MOV #ISR,(R3)¢ 

MOV coeee a (R3) 

MOV RPADR sFIRST ADDRESS OF RH11/RPO4 
MOV oei105, RPCS2(R4) ;MASSBUS INIT 

CLR R1 :START WITH DRIVE 0 

JSR 80. DRVINT ; INIT THE DRIVE 

BR 4$ *DVA' NOT SET OR PARITY ERROR 
Be 5$ ;NORMAL RETURN 

CLRB DRVSTA(R1) ;SET DRIVE STATUS TO OFFLINE 
INC R1 :G0 TO NEXT DRIVE 

BIC #*C7,R1 :MASK OUT UNUSED BITS 

BNE 3$ ;BR IF MORE DRIVES TO GO 

MOV a#7,R) :START WITH DRIVE 7 

CLR aaPs ;CLEAR THE PROCESSOR STATUS 
1STB DPINT(R1) :WAITING FOR DRIVE TO SWITCH PORTS ? 
BEQ 8$ ;BR NOT WAITING 

JSR PC St 1.18 >SET INTERRUPT 

1S1B DPINT(R1) :DRIVE SWITCHED PORTS ? 

BNE 7$ ;BR IF NOT 

DEC R1 :GO TO THE NEXT DRIVE 

BPL 6$ ;CHECK NEXT DRIVE 

MOV (SP) +, aaPS sRESTORE THE PROCESSOR STATUS 
RESREG ;RESTORE RO - R5 

RTS PC ;BYE-BYE 


DRIVE INITILIZATION ROUTINE 


3s CALL 


DRVINT: 


:THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

:AN RPOG/5/6. IF IT IS, A ‘'READ-IN PRESET’ IS ISSUED AND FMT22 
1S SET TO A ‘'1'’, THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 

> INSURE THEY ARE ALL ON A ss haa AND DEPENDING ON THEIR STATE, 
sDRVSTA IS SET TO THE PROPER CONDITION. 


MOV #DRVNUM,RI :DRIVE NUMBER TO R1 

MOV RPADR,R4S sUNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1) 
JSR RO,DRVINT s;CALLED BY A JSR 

RETURNI sERROR OCCURRED (PARITY) 

RE TURN2 s;NORMAL RETURN 

MOV R5,-(SP) > SAVE R5 


CLRB DRVSTACRI) sSTART DRIVE STATUS AS OFFLINE 
CLRB DRVTYP(R1) sCLEAR THE DRIVE TYPE INDICATOR 
CLRB ULDFLG(R1) sCLEAR THE UNLOAD FLAG 


MOV RI, RPCS2(R4) >SELECT A DRIVE 


MOVB MITT,RPCSI(RG) ;DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE? 


SEQ 0150 | 





CZRIDDO, RPOG/5/6 MLT-DR LGC 


CZRIDD.P 


034172 
034176 


06-JUN-79 
032764 


000014 


08:32 
010000 
041234 


033302 
004000 


040554 


000001 
020020 


024020 


000002 
020021 


924021 


000004 
020022 


024022 
177777 
034264 
001000 
000010 


001740 
000262 


000121 
040730 


010000 
040730 


040554 


033416 
040554 


MACY11 30A(1052) 


000010 


000000 


033312 


033312 


033312 


033312 


000012 
033312 


000016 


2$: 


9$: 
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O3-yUL-79 10:41 PAGE 153 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


MBITI2,RPCS2(R4) ;NONEXISTENT DRIVE? 
1$ ;NO---BRANCH 
PC,SET.IE 

é$ 


DRVSTA(R1) 
> pebeagatens:senag! ;SEE IF DRIVE AVAILABLE 


;LEAVE THIS ROUTINE 


760 SET IE’ WITHOUT A "TRE" 
“SET DRIVE STATUS TO OFFLINE 


;BR IF DRIVE NOT AVAILABLE 
RO,RD.RP ;READ THE DRIVE TYPE REG. 

;ERROR RETURN ADDRESS 
(SP)+,R5 ;PUT DRIVE TYPE IN R5 


#| /DRVTYP(RI) SET RPO4 INDICATOR 


VE? 


#20020, R5 :1S8 IT A SINGLE PORT RPO4? 
2$ ;BRANCH IF YES 

#24020,R5 :1S 11 A DUAL PORT RPO4? 
2$ ;BR IF YES 

#2, DRVTYP(R1) :SET RPOS INDICATOR 
#20021,R5 :SINGLE PORT RPOS ? 

2$ ;BR IF YES 

#24021,R5 :DUAL PORT RPOS ? 

23 :BR IF YES 

#G ,DRVTYP(R1) ;SET RPO6 INDICATOR 
#20022,R5 :SINGLE PORT RPO6 ? 

2$ ;BR IF YES 

#24022,R5 sDUAL PORT RPO6 ? 

$ ;BR IF YES 

tea tribes sSET INDICATOR TO ‘OTHER’ 
6 sEXIT 

TSTPGM ; INHIBIT PROGRAMMABLE DR] 
9% ANCH IF 


:BR NO 
#B1109, RPDS1(R4);1S DRIVE PROGRAMMABLE? 
9$ ;BRANCH IF NO 
#B1103, DRVTYP(R1);SET INDICATOR 
6% EXIT 


R3,-(SP) 7 SAVE R3 
R1 ; CREATE WORD INDEX 
BLKADR(R1),R3 GET DPB START ADDRESS 


R5,$RPDT(R3) ;STORE DRIVE'S TYPE 

R1 RESTORE DRIVE NUMBER 
(SP)+,R3 RESTORE R3 

#121,-(SP) :D0 A "'READ-IN-PRESET"’ 
RO,WRT.RP 


ng no ;SET FMT22=1 


RO, WR 
RO,RD.RP READ RPDS1 
(SP)4#,R5 ;AND SAVE IT IN R5 


4$ BRANCH IF ATA=0 
ATABIT(R1), RPAS (RQ) CLEAR ATTENTION BIT 
RO,RD.RP FIND OUT wHY ATA=1 


(REV 
(REV 
(REV 
(REV 
(REV 
(REV 


SEQ 0151 


J 12 
PAGE 


CZRIDDO, RPOG/5/6 MLT-DR LGC MACY11 30A(1052) O03-JUL-79 10:41 154 
CZRJDD.P11 06-JUN-79 08:32 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0152 
7884 034200 034260 8% 
7885 034202 006126 ROL (SP)¢ 31S 17 UNSAFE? 
7886 034204 100004 BPL 4% :BR If NOT 
7887 034206 112761 177777 033302 MOvVB #-1,DRVSTA(R1) ;SET UNSAFE INDICATOR 
7888 034214 000407 BR 6$ EXIT 
7889 034216 005105 4%: COM R5 CHECK MOL, DPR, DRY, AND vv 
7890 034220 042705 167077 BIC #*(<B1112!B1108:B1107! BIT06>,R5 
7891 034224 001003 BNE 6% ;BRANCH IF MOL, DPR, DRY, OR vv IS CLEAR 
7892 034226 112761 000001 033302 MOVB #1, DRVSTAC(R1) 7SET DRIVE STATUS 10 ONL INE 
7893 034234 005720 o$: TST (RO) + sSTEP OVER THE ERROR RETURN 
7894 034236 000410 BR 8 TEX X17 
7895 034240 006301 7$: ASL R1 sCHANGE INDEX TO ADDRESS WORDS 
7896 034242 012761 003720 033374 MOV #2000.,TIMER(R1) ;START 2 SEC TIMER 
7897 034250 006201 ASR R1 = RESTORE R1 
7898 034252 105161 033322 COMB DPINT(R1) = SET PORT INITIALIZE INIDICATOR 
7899 034256 005720 TST (RO)*+ 
7900 034260 012605 8$: MOV (SP)+,R5 RESTORE RS 
tons 034262 000200 RTS RO sEXIT 
7903 7TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD) 
7904 :THE FLAG WILL BE SET BY THE PROGRAM UNDER 
7905 ;MANUFACTURING CONDITIONS (ACT,APT) AND 
7906 sCLEARED UNDER FIELD CONDITIONS(XXDP CHAIN, 
7907 :STANDALONE) WITH STARTING ADDRESS 200. 
7908 >THE FLAG WILL BE SET UNDER ALL CONDITIONS 
Aes sWITH STARTING ADDRESS 220. 
nad 034264 000000 TSTPGM: .WORD 0 :=1 TEST PROGRAMMABLE DRIVE 
1 
sh sREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
14 , 
7915 CALL 
7916 ; 
7917 ; JSR RO, a#RPOS :CALL THE RP04/5/6 DRIVER 
7918 : PNTADR sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
7919 3 RETURNI ;RETURN HERE IF QUEUE IS FULL 
7920 : RETURN2 ;RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
7921 ;1S AN ERROR CONDITION 
7922 
7923 034266 013746 177776 RPO4: MOV aavPs,-(SP) :SAVE THE CALLING STATUS 
7924 034272 013737 033434 177776 MOV RPVEC+2,aaPS :DON'T ALLOW ANY RPO4/5/6 INTERRUPTS 
7925 034300 112737 000001 033446 MOVB #1, ACTDRV sSET ‘ACTIVE DRIVER'' FLAG 
7926 034306 104412 SAVREG > SAVE RO - R5 
7927 034310 011002 MOV (RO) ,R2 sPICKUP THE DRIVE PARAMETER BLOCK POINTER 
7928 034312 005062 000016 CLR 16(R2) :CLEAR THE STATUS/ERROR INDICATOR 
7929 034316 111201 MOVB (R2),R1 ;PICKUP THE DRIVE NUMBER 
7930 034320 013704 033430 MOV RPADR,R4S :UNIBUS ADDRESS OF RPCS1 
7931 034324 105761 033302 TSTB DRVSTA(R1) ;CHECK DRIVES STATUS 
7932 034330 003014 BGT 1 ;BRANCH IF ONLINE 
7933 034332 105761 033350 1STB ULDFLG(R1) sUNLOAD COMMAND IN QUEUE? 
7934 034336 001036 BNE 3$ sBRANCH IF YES 
7935 034340 105761 033322 1S1B DPINT(R1) sTRYING TO INIT THE DRIVE 
7936 034344 001042 BNE 5$ “BR IF YES 
7937 034346 004037 035660 JSR RO,DRVINT :GO INIT. THE DRIVE 
7938 034352 000434 BR 4$ s ERROR RETURN 
7939 034354 105761 033302 TSTB DRVSTA(R1) 31S DRIVE STATUS ONLINE? 





' 
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CZRJDD.P11 


034360 


034556 


034560 
034562 
034566 
034574 
034600 
034602 
034604 
034612 
034614 
034622 


06-JUN- 
003445 


000200 


104412 


001005 


79 08:32 


033332 


090010 
041676 


000103 


177777 
033272 


034560 
120000 
035670 
041676 
900100 
041234 
033302 


140000 
033312 


100002 


110000 


033346 
177776 


177776 
033416 
041752 
004600 


000100 


MACY11 


000002 
033350 


000016 


000016 


000016 
000016 


033344 


000000 
000012 


30A( 1052) 


1$: 


23: 


3$: 
4$: 
5$: 


6$: 


7$: 
8$: 


9$: 
10$: 


K 12 
O3-yUL-79 10:41 * AGE 155 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


6$ ;BR IF NOT 

DPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
5$ ;BR IF YES 

R1,RPCS2(R4) s SELECT THE DRIVE 

RO, DRVQUE PUT THIS REQUEST IN QUEUE 

9% > QUEUE IS FULL 

#103,2(R2) 71S THIS REQ. FOR AN UNLOAD? 

2$ ‘BR IF NO 

#-1,ULDFLG(R1) ;SET THE ‘UNLOAD IN QUEUE" FLAG 
DRVACT(R1) 31S THIS DRIVE ACTIVE? 

8% :BR IF YES 

Tal ;CALL THE OPTIMIZER 

* ‘ah 'BIT13, te THE ‘UNLOAD IN QUEUE’ ERROR FLAG 
Teta :GO HANDLE THE PARITY ERROR 
RO,DRVQUE zPUT REQUEST IN QUEUE 

} ;QUEVE IS FULL 

#B1T06, (R4) :1S "IE" SET ALREADY ? 

8$ sBR IF IT IS 

PC,SET.IE :SET INTERRUPT 

8$ sRETURN, REQUEST IN QUEUE 
DRVSTA(R1) sSEE IF DRIVE OFFLINE OR UNSAFE 
7$ ;BR IF UNSAFE 


MBITIS'BI114,16(R2) ;SET OFFLINE ERROR INDICATOR 
DRVTYP(R1) ;SEE IF OFFLINE OR NONEXISTENT 

8$ BR IF OFFLINE 

#BIT1I5S:BIT01, 16¢ke) REPORT DRIVE NONEXISTENT 
8% GO TO EX 


iT 
#BITIS!BIT12, 16¢k2) a 1S UNSAFE 
RESTO 


RO - R5 

(RO)+ CE IUP FOR NORMAL RETURN 
10% FINISH UP, THEN EXIT 

;RESTORE RO - RS 
(RO) + ;CORRECT THE RETURN ADDRESS 
ACTDRV ;CLEAR “‘ACTIVE DRIVER’ FLAG 
(SP)+,a#PS RETURN ‘'PS'’ TO USER LEVEL 
RO ;RETURN TO CALLER 


;OPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


> CALL 


OPT: 


MOV 
JSR 


SAVREG 
MO 


#DRVNUM,R1 sDRIVE NUMBER TO RI 

PC,OPT :SETUP A COMMAND 
:SAVE RO = R5 

aaPs,-(SP) sSAVE PROC. STATUS 


ATABIT(R1),SRCHWT CLEAR "SEARCH WAIT" KEY 
PC,GETREQ ;GET "‘DPB'’ POINTER OF REQUEST 

Re 71S THERE A REQUEST IN QUEUE? 

7$ ;NO--BRANCH TO EXIT 
#BITI1,RPCSICR4) 31S DVA SET? 

10% ;BRANCH IF NOT 

MBITO,RPDSI(R4) 31S VV SET ? 

10$ :BR IF 11 IS 


SEQ 0153 


| 
ee | 


za so0, RP04/5/6 MLT-DR LGC 
CZRJDD.P11 : 


06-JUN-79 08:32 


034624 


035036 


004037 


000207 


033660 
033302 
041774 
39 
110000 
2013 
004000 
000150 
035254 
033414 
033372 


036224 


035040 
035146 
177777 


023420 


035670 
000100 


041234 
177776 


035060 004737 041774 


MACY11 30A(1052) 


000016 


000016 


000002 


033332 


033374 


; COMMAND INITIATOR 


CALL 


(]1: 


Mov? 
MOV 
JSR 


JSR 


#DRVNUM,R1 
#DPB,R2 
PC Ci? 


PC ,POPQUE 


RIVE NUMBER 
DDORESS OF DPB 
ade C11,C13, OR C14 


HERE: 

ti: =DATA TRANSFER 

2=SEARCH REQUESTED BY DATA XFER 
4=NOT DATA TRANSFER 


REMOVE REQUEST FROM “DRIVES WALT’ QUEUE t 


‘ 


Seis Oe 
mm. 


L 12 a 
03-yUL-79 10:41 + BAGE 
SINGLE/DUAL PORT RH11/RP04/5/6 RIVER (REV 1.0) SEQ 0154 
9$: JSR RO,DRVINT SEE IF DRIVE STILL ONLINE ? 
BR 6$ PARITY OR ‘DVA' NOT SET 
10$: 1S1B DRVSTACRI) :1S DRIVE ONLINE? 
BGT i$ > YES--BRANCH 
JSR PC, POPQUE :NO=-REMOVE REQUEST FROM QUEUE 
MOV #B1T15! BITI4, 16(R2) SET OFFLINE STATUS/ERROR INDICATOR | 
1STB DRVSTA(R1) si DRIVE UNSAFE ? 
BPL 8$ TO EXIT IF NOT 
MOV #BITIS'BITI2, 16cke) :SET UNSAFE STATUS/ERROR INDICATOR | 
BR 8$ BRANCH TO EXIT 
1$: MOV #111,-(SP) =LOAD COMMAND ONTO THE STACK | 
JSR RO,WRT.RP [LOAD THE REGISTER 
RPCS1 sREGISTER INCREMENT 
6$ sERROR RETURN ADDRESS 
BIT #B1T11, (R4) sDRIVE AVAILABLE ? 
BEQ 5 :BR IF NOT 
CMPB #150,2(R2) :1S8 THE REQUEST FOR 1/0? 
BLT 2$ > YES--BRANCH 
JSR PC,C14 :CALL THE COMMAND INITIATOR 
BR 8$ sBRANCH TO EXIT 
2$: TST DTUW :DATA TRANSFER UNDERWAY? 
BGE 4$ :YES=--GO START A SEARCH 
TST SEEKFG D0 IMPLIED SEEKS? 
BM] 3$ > YES---BRANCH 
JSR RO,LA :NO--DO LOOK AHEAD 
BR 8$ sRETURN HERE ON A PARITY ERROR 
BR 4$ :G0 START A SEARCH | 
3$: JSR ee 601 START A DATA TRANSFER 
BR 
4$: JSR PC,C13 :START A SEARCH 
BR 8$ :GO TO THE EXIT 
5$: MOVB #-1,DPRQS(R1)  ;:SET PORT REQUEST INDICATOR 
MOV / :SET UP TO ADDRESS WORDS 
ASL R3 CONVERT TO WORD INDEX 
MOV #10000.,TIMER(R3) ;START 10 SEC TIMER 
BR 7$ SEXIT 
6$: JSR PC,CI7 :PROCESS THE PARITY ERROR 
7$: BIT #B1T06,(R4) >SEE IF ‘IE' ALREADY SET 
BNE ey :BR IF SET 
JSR PC,SET.IE :SET ““IE'’ WITHOUT A ‘“‘TRE"’ 
8$: MOV (SP)+,a#PS sRESTORE PROC. STATUS | 
RESREG RESTORE RO - R5 
RTS PC | 
} 
| 
} 
| 
| 
| 
i 
oe 





M12 Sage aera of 
CZRIDDO, RPOG/S/6 MLT=DR LGC MACYT1 30A(1052) O3-JUL-79 10:41 PAG 


GE 157 
CZRJDD.P11 06-JUN-79 08:32 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0155 
8052 035044 010237 033342 MOV R2, TRNSWT ;PUT REQ. IN TRANSFER WAIT QUEUE 
8053 035050 010203 MOV R2,R3 ;DPB ADDRESS 10 R3 
8054 035052 013704 033430 MOV RPADR ,R4 ;RPCS1 ADDRESS 
8055 035056 010164 000010 MOV R1,RPCS2(R4) ;SELECT DRIVE 
8056 035062 062703 000004 ADD #4 RS :DESIRED WORD COUNT 
8057 035066 062704 000002 ADD #2,R4 ;RPWC ADDRESS 
8058 035072 012324 MOV (R3)+,(R4)* ;LOAD WORD COUNT 
8059 035074 012324 MOV (R3)+,(R4)+ [LOAD BUFFER ADDRESS 
8060 035076 012346 MOV (R3)+,-(SP) ;LOAD SECTOR AND TRACK 
8061 035100 004037 040750 JSR RO,WRT.RP CALL THE LOAD(WRITE) ROUTINE 
8062 035104 000006 RPDA ; INDEX OF REGISTER TO LOAD 
8063 035106 035670 C17 ;ERROR RETURN ADDRESS 
8064 035110 012346 MOV (R3)+,-(SP) ;LOAD CYLINDER ADDRESS 
8065 035112 004037 040730 JSR RO,WRT.RP 
8066 035116 000034 RPCA 
8067 035120 035670 C17 
8068 035122 016246 000002 MOV 2(R2) , (SP) ;LOAD ‘*COMMAND+GO"', ‘‘A178A16"", AND ‘'PSEL"’ 
8069 035126 004037 040730 JSR RO,WRT.RP 
8070 035132 000000 RPCS1 
8071 035134 035670 
8072 035136 010137 033414 MOV R1,D0TUW ;SET "DATA TRANSFER UNDERWAY" 
8073 035142 0001357 035632 JMP C15 
8074 035146 013704 033430 C13: MOV RPADR ,RS ;RPCS1 ADDRESS 
8075 035152 010164 000010 MOV R1,RPCS2(R4) SELECT DRIVE 
8076 035156 016246 000012 MOV 12(R2) ,-(SP) ;DESIRED CYLINDER ADDRESS 
8077 035162 004037 040730 JSR RO,WRT.RP 
8078 035166 000034 RPCA 
8079 035170 035670 C17 
8080 035172 116203 000010 MOVB 10(R2) ,R3 PICKUP SECTOR ADDRESS 
8081 035176 163703 033444 SUB MXWNDW,R3 ;BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
8082 035202 002002 BGE 1$ 
8083 035204 062703 000026 ADD #22. ,R5 
8084 035210 010346 1$: MOV R3,-(SP) ;COMBINE THE ADJUSTED SECTOR WITH 
8085 035212 116266 000011 000001 MOVB 11(R2),1¢SP) THE DESIRED TRACK 
8086 035220 004037 040750 JSR RO,WRT.RP ;LOAD DESIRED TRACK & SECTOR 
8087 035224 000006 RPDA 
8088 035226 035670 C17 
8089 035230 012746 000131 MOV #131,-(SP) 4 ;START A SEARCH 
8090 035234 004037 040730 JSR RO,WRT.RP 
8091 035240 000000 RPCS1 
8092 035242 035670 
8093 035244 156137 033416 033344 BISB ATABIT(R1) ,SRCHWT :SET "SEARCH WAIT’’ KEY 
8094 035252 000567 BR C15 
8095 035254 013704 033430 C14: MOV RPADR ,R& ;RPCS1 ADDRESS 
8096 035260 010164 000010 MOV R1,RPCS2(R4) SELECT DRIVE 
8097 035264 116203 000002 MOVB 2(R2) ,R3 :PICKUP THE REQUESTED COMMAND 
8098 035270 122703 000131 CMPB #131,R3 :1S IT A — COMMAND ? 
8099 035274 001007 BNE 1$ :BRANCH IF 
8100 035276 016246 000010 MOV 10(R i fa ;LOAD DESIRED TRACK & SECTOR 
8101 035302 004037 0407530 JSR RO,WR 
8102 035306 000006 RPDA 
8103 035310 035670 tly ° 
8104 035312 000403 BR 2$ ; G0 ee CYLINDER 
8105 035314 122703 000105 1$: CMPB #105,R5 :IS IT A = COMMAND 
8106 035320 001007 BNE 3% ;BRANCH IF 
8107 035322 016246 000012 2$: MOV 12(R2),-(SP) ; LOAD DESIRED CYLINDER | 
| 
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040730 


000115 
040554 


000001 
040730 


000107 
000117 
000103 
000001 
033302 
000001 


040730 


000143 
040554 


000001 
040730 


000141 
000006 
000010 


000011 
040554 


035540 
000002 
000145 


040730 


MACY11 30A(1052) 


033272 
033350 


000001 


035540 


035540 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 
9$: 


108: 


03-JUL-79 
JSR RO,WRT.RP 
RPCA 
C17 
BR C16 
CMPB #115,R3 
BNE 4% 
JSR RO,RD.RP 
RPOF 
C17 
MOvB 1(R2), (SP) 
JSR RO,WRT.RP 
RPOF 
C17 
BR C16 
CMPB #107,R3 
BEQ C16 
CMPB #117,R3 
BEQ (16 
CMPB #103,R3 
BNE 5% 
MOVB #1,DRVACT(R1) 
CLRB DRVSTA(R1) 
MOVB #1,ULDFLG(R1) 
MOV R3,-(SP) 
JSR RO,WRT.RP 
RPCS1 
C17 
RTS PC 
CMPB #143,R3 
BNE 6$ 
JSR RO,RD.RP 
RPOF 
C17 
MOVB 1(R2),1(4SP) 
JSR RO,WRT.RP 
RPOF 
C17 
BR 12% 
CMPB #141,R3 
BNE 10$ 
MOV 6(R2),83 
MOVB 10(R2),9% 
MCVB 11(R2),R5 
JSR RO,RD.RP 
RPCS1 
C17 
MOV (SP)+,(R3)+ 
CMP 9$,R5 
BEQ 12$ 
BR 
CMPB #145,R3 
BEQ $ 
MOV R3,-(SP) 
JSR RU, WRT.RP 


N 12 
10:41 W PAGE 158 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


1S 11 A “GET REGISTER” 
;BRANCH IF NO 

;POINTS TO 1ST ADDRESS OF WHERE 

;TO PUT THE REGISTER(S) 

; INIT. THE INDEX FOR THE FIRST REG. 
; INDEX OF LAST REG. 
READ RPO4/5/6 REGISTER 
; INDEX OF REG. TO READ 


be 4 ~ “OFF SET'’ COMMAND? 
;MERGE THE OFFSET VALUE INTO RPOF 
;BUT DON'T CHANGE THE UPPER 


;BYTE WHEN LOADING THE 
REGISTER (RPOF) 


3GO START THE COMMAND 
31S 1T A “‘RECALIBRATE*’’ COMMAND? 
;BRANCH IF YES 


:1S 11 A RETURN TO CENTER? 
:BRANCH IF YES 
31S 17 AN ‘UNLOAD’’ COMMAND? 
BRANCH IF NO 


:SET THE DRIVE ACTIVE INDICATOR 
;PUT DRIVE STATUS TO OFFLINE 

:SET “UNLOAD IN PROGRESS" 
;START THE “‘UNLOAD"’ 


FLAG 
COMMAND 


;RETURN TO USER 

:1S 117 A “’SET FORMAT'’ COMMAND ? 
:BRANCH IF NO 

;READ THE OFFSET REGISTER 


;COMBINE “FMT22°',""ECI*', AND "HCI" 
[LOAD ‘'FMT22"", ECT", AND/OR "HCI". 


COMMAND? 


TO MOVE 


GET THE CONTENTS OF RH11/RPO4/5/6 REG. 
;LAST REG. BEEN READ? 
;GET OUT IF YES 


> INCREASE THE INDEX BY 2 
;LOOP--MORE TO READ 

718 17 
;BRANCH IF YES 
s;LOAD THE COMMAND 


A “'SELECT DRIVE’ COMMAND? 


SEQ 0156 


CZRJDDO, RPOG/5/6 MLT-DR LGC 
06-JUN-79 98:32 


CZRJ 


DD.P11 


035600 
035602 


036070 


000000 


012763 


041774 
000200 
033370 


041116 


001750 
000001 


040730 


010000 


104000 
041116 


033272 


033342 
033414 


041752 


010000 
100002 
102000 


041116 
177777 


B 13 
MACY11 30A(1052) O3-JUL-79 10:41 PAG 


000016 


033374 
033272 


000010 


000016 


033414 


000010 


000010 
000016 
000016 
033374 
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SEQ 0157 
RPCS1 
Ci? 
12$: JSR PC ,POPQUE ;REMOVE REQ. FROM QUEUE 
BIS #Bi107, 16(R2) ;SET THE ‘‘DONE’’ BIT 
TST SAVEFG SAVE THE RH11/RP04/5/6 REGISTERS? 
BPL 13% ;BRANCH IF NO 
JSR PC,SVRH11 7YES--GO SAVE THE REGISTERS 
13$: RTS PC ;RETURN TO USER 
C15: ASL R1 
aan 4 ag bens SET A ONE SECOND TIMER 
A 
MOVB #1 ,DRVACT(RI) SET THE DRIVE ACTIVE 
RTS PC ;RETURN TO THE USER 
C16: MOV R3,-(SP) ;LOAD THE COMMAND 
JSR RO,WRT.RP 
RPCS1 
C17 
BR C15 
C17: BIT MBITI2,RPCS2(R4) ;DRIVE NON-EXISTENT ? 
BNE C18 ;BR IF YES 
1$: TST R2 ANYTHING IN QUEUE ? 
BEQ C17B ;BR IF NOT 
MOV #BITIS!'BIT11,16(R2) ;SET ''PARITY’’ ERROR INDICATOR 
JSR PC,SVRH11 ;GO SAVE THE ee REGISTERS 
C17B: MOV #111,-CSP) :D0 A "DRIVE CLEA 
JSR RO,WRT.RP 
RPCS1 
C18 
JSR PC,EMPTYQ sEMPTY THE QUEUE 
CLRB ULDFLG(R1) ;CLEAR THE UNLOAD IN QUEUE FLAG 
CLRB DRVACT(R1) DRIVE IS IDLE 
CMP R1,DTUW ;1F THIS DRIVE HAD AN 1/0 REQUEST 
BNE 1$ 7 1N PROGRESS CLEAR ALL OF THE FLAGS 
CLR TRNSWT 
MOV #-1,DTUW 
1$: RTS PC 
C18: SAVREG ;SAVE RO - R5 
BIT WBITI2,RPCS2(R4) [51S "NED' SET ? 
BNE 1$ ;BR IF YES 
CLR R1 
CLR R3 
1$: TSTB DRVACT(R1) ;DRIVE ACTIVE? 
BEQ 5$ ;BRANCH IF NO 
MOV TRNSWT ,R2 ;GET THE ‘‘TRANSFER WAIT'’ QUEUE 
CMP R1,01UW :D1D THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
BEQ 2$ ;BRANCH IF YES 
JSR PC,GETREQ ;GET THE DPB POINTER 
2S: TST Re ;QUEUE ENTRY FOR DRIVE ? 
BEQ 4$ ;BR lf NOT 
BIT MBIT12,RPCS2(R4) ;"NED' SET ? 
BEQ IF NOT 
MOV #BITIS!BITO1, 16¢R2) SET "DRIVE NON-EXISTENT’ INDICATOR 
BR 4$ CONTINUE 
3$: MOV #B1115!B1110, 16(R2) ;SET "'NON-CLEARABLE PARITY"’ ERROR INDICATOR 
JSR PC,SVRH11 : SAVE RH11/RP04/5/6 REGISTERS 
4%: MOV w-1, TIMER(R3) :STOP THE TIMER 


on 


€ T3 
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8220 036076 105061 033272 CLRB DRVACT(R1) :SET ‘DRIVE ACTIVE'’ TO IDLE 
8221 036102 020137 033414 CMP R1,01TUW :;1S THIS DRIVE SETUP FOR A TRANSFER 
8222 036106 001005 BNE 5$ ;BR IF NOT 
82235 036110 012737 177777 033414 MOV #-1,07TUW ;RESET THE INDICATOR 
8224 036116 005037 033342 CLR TRNSWT ;CLEAR THE TRANSFER QUEUE 
8225 036122 105061 033350 5$: CLRB ULDFLG(R1) ;CLEAR UNLOAD FLAG 
8226 036126 032764 010000 000010 BIT #B1T12, RPCS2(R4)- 3"NED' SET ? 
8227 036134 001021 BNE . ;BR IF YES 
8228 036136 005201 INC sMOVE TO THE NEXT DRIVE 
8229 036140 062703 000002 ADD 52,83 
8230 036144 042701 177770 BIC #*C7,R1 
8231 036150 001316 BNE 1$ ;BRANCH IF MORE DRIVES 
8232 036152 012737 177777 033414 MOV #-1,0TUW 3NO DATA TRANSFERS UNDERWAY 
8233 036160 005037 033342 CLR ey ;CLEAR THE ‘TRANSFER WAIT’ QUEUE 
8234 036164 004737 041600 JSR PC, CLRQUE :CLEAR ALL OF THE REQUEST QUEUES 
8235 036170 012764 000040 000010 MOV asit0s, RPCS2(R4G)- ;D0 A MASSBUS INIT. 
8236 036176 000406 BR 7$ : CON TINUE 
8237 036200 004737 041656 6$: JSR PC,EMPTYQ sCLEAR THE DRIVE'S QUEUE 
8238 036204 105061 033302 CLRB DRVSTA(R1) ;SET DRIVE TO OFFLINE 
8239 036210 105061 033312 CLRB DRVTYP(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
8240 036214 004737 041234 7$: JSR PC Sti. it sSET “‘IE’’ WITHOUT ‘TRE’ 
8241 036220 104413 RESREG sRESTORE RO - RS 
eset 036222 000207 RTS PC RETURN 
4 
8244 ;LOOK AHEAD ROUTINE 
8245 ; 
8246 CALL 
8247 : MOV #DRVNUM,R1 ;DRIVE NUMBER 
8248 ; MOV #DPB,R2 :POINT TO DPB 
8249 ; JSR RO,LA ;GO CHECK THE WINDOW 
8250 : RETURNI sERROR RETURN 
8251 ; RETURN2 sSTART A SEARCH 
eset : RETURN3 sSTART A DATA TRANSFER 
8254 036224 013704 033430 LA: MOV RPADR,RG 7GET RPCS1'S ADDRESS 
8255 036230 010164 000010 MOV R1,RPCS2(R4) sSELECT DRIVE 
8256 036234 004037 040554 JSR RO,RD.RP ;READ CURRENT CYLINDER 
8257 036240 000036 RPCC 
8258 036242 036354 4$ sERROR RETURN ADDRESS 
8259 036244 022662 000012 CMP (SP)+,12(R2) 31S CURRENT CYLINDER=DESIRED 
8260 ; CYLINDER? 
8261 036250 001037 BNE 3$ sEXIT IF NO 
8262 036252 105261 033360 INCB LACNT(R1) > INCREMENT THE LOOK AHEAD COUNT 
8263 036256 126137 033360 033436 CMPB LACNT(R1),MXLACT sEXCEED MAX? 
8264 036264 003026 BGT 2$ ;BRANCH IF YES 
8265 036266 116203 000010 MOVB 10(R2),R3 sGET DESIRED SECTOR ADDRESS AND 
8266 036272 000303 SWAB R$ :MULT. BY 64--ALIGN WITH 
8267 036274 006203 ASR R3 ;LOOK AHEAD REGISTER 
8268 036276 006203 ASR R3 
8269 036300 012737 000340 177776 MOV #349 ,aaPs sPRIORITY LEVEL ‘'7" 
8270 036306 004037 040554 JSR RO,RD.RP ;READ LOOK AHEAD REGISTER 
8271 036312 000020 RPLA 
8272 036314 036354 4$ 
8273 036316 162603 SUB (SP)+,R3 sCALCULATE THE DELTA 
8274 036320 002002 BGE 1$ 


8275 036322 062703 002600 ADD #<22.%645.>,R3 =; MAKE THE DELTA POSITIVE 


' 
ES ce neem ell 





Om 


CZRJ 


036526 


036360 


036362 


036424 


036426 
036432 


036570 
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023703 


000200 


112737 


900002 


105061 
012737 


012714 


033440 
033442 
033360 


035670 


000001 


033430 
033414 


036426 
036710 
033346 


033272 
177777 


177777 
033342 


034560 
000113 


100100 
041656 
041116 
040111 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


1$: 


2$: 
3$: 


4%: 
5$: 


03-JUL-79 10:41 
CMP MXDLTA,R3 
BLT 3$ 
CMP MNDLTA,R3 
BGE %$ 
CLRB LACNT(Ri) 
TST (RO)+ 
TST (RO) + 
BR 5$ 
JSR PC,C17 
RTS RO 


; INTERRUPT SERVICE ROUTINE 


ISR: 


1$: 
2%: 


#1,ACTDRV 
RPADR ,R4 
DTUW,R1 
1$ 

PC,1D 

$ 

PC,SC 


ACTDRV 


; TRANSFER DONE ROUTINE 


2$: 
3$: 


DRVACT(R1) 
#-1,D0TUW 


R1 
#-1,TIMER(R1) 
R1 


TRNSWT,R2 
TRNSWT 
#B1T07,16(R2) 
R1,RPCS2(R4) 
RO,RD.RP 


(SP)+ 
3$ 
SAVEFG 


“Pchsventt 


PC; WC 
PC. ,GETREQ 


2$ 
PC,OPT 
$C 


“thon (R4) 


381115: B1106, 16(R2) 


PC,EMPTYO 
PC, SVRH11 
M4O111,(R4) 


SET "ACTIVE DRIVER" 
SAVE RO = R5 
;ADDRESS OF RHSCS1 
:GET "DATA TRANSFER UNDERWAY’ INDICATOR 


CLEAR Sat TIVE. DRIVER" 
sRETURN 


CHECK THE DELTA TO Set 
;1F IT 1S WITHIN THE 
sWINDGW---IF YES, ZERO 
>THE LOOK AHEAD COUNT 
AND TAKE THE 1/0 EXIT 


ht THE RETURN ADDRESS 
;EX 


; T 
;PROCESS THE ERROR 
; RETURN 


FLAG 


;BRANCH IF NO DATA TRANSFER UNDERWAY 
tert TRANSFER DONE 
sEXI 


CALL SPECIAL peel, 
RESTORE RO - 
FLAG 


SET DRIVE ACTIVE INDICATOR TO iDLE 
7NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


;GET ‘'DPB'’ ADDRESS FROM THE 

; TRANSFER WAIT QUEUE=-CLEAR QUEUE 
SET DONE 

sSELECT THE DRIVE 

; TRANSFER ERROR(TRE=1)? 


;BR IF YES 
SAVE THE RH11/RP04/5/6 REGISTERS? 
;BRANCH IF NO 


TYES=-SAVE THE REGISTERS 

;SEE IF WRITE CHECK TO BE PUT IN QUEUE 
;GE1T DPB POINTER 

SENTRY FOR DRIVE ? 

;BR IF NOT 

CALL OPTIMIZER 

> CHECK OTHER DRIVES 


te ig THE DRIVE 
CHECK FOR OTHER DRIVES 
;SET DATA ERROR FLAG 
EMPTY THE "‘DRIVE'S WAIT’ QUEVE 


“SAVE THE RH11/RP04/5/6 REGISTERS 
ISSUE A "'DRIVE CLEAR" 


SFO 0159 | 
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036574 
036600 


036602 


036706 


036710 
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012714 
000445 


005737 


000207 


116403 
001012 
004037 


004737 


000113 


001424 
000002 
000003 
041676 
000016 


000010 


000016 
040554 


041234 


000001 


033322 


037666 
033332 


037666 
033302 


033350 
041752 


MACY11 


000024 
000024 


000027 
000034 


000002 


30A(1052) 


03-juL-79 


10:41 
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SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


s FORCED 
wC: 


2$: 


MOV 
BR 


WRITE CHECK ROUTINE 


#113, (R4) 
sc - 


AUTOCK 
2$ 


i eer 
#3,$CODE(R2) 
2% 


RO, DRVQUE 
2$ 
16(R2) 


SPECIAL CONDITION ROUTINE 


a 


RPAS(R4) RS 


2$ 
RO,RD.RP 
(SP) + 

1$ 


1 
PC,SET.IE 
PC 


PC 
DPINT(R1) 
1$ 


$(13 
DPRQS(R1) 
e$ 


$¢13 
DRVSTAC(RI) 


ULDFLG(RI) 
58 
PC ,GETREQ 


; ISSUE A RELEASE TC THE DRIVE 
CHECK FOR OTHER DRIVES 


;AUTOMATIC WRITE CHECKS ? 

;BR IF NOT 

[LAST OPERATION WRITE DATA ? 

;BR IF IT WAS 

;LAST OPERATION WRITE HEADER & DATA ? 
;BR IF NOT 

;PUT THE OPERATION IN THE QUEUE 
SQUEUE IS FULL 


:CLEAR "DONE’ BIT IN DPB 
SRPCS1(R2) ,SPREVO(R2) 
SCYL(R2) ,SPREVA+2(R2) 
SSEC(R2) ,SPREVA(R2) 
#2, $CODE(R2) 
#20, $COMND(R2) 
#10, $COMND(R2) 
PC 


;SAVE WRITE OPERATION CODE 
;SAVE CYLINDER 
;SAVE SECTOR AND TRACK ADDRESSES 


; CHANGE WRITE TO CHECK 
; CHANGE DRIVER CODE TO WRITE CHECK 
FINISH CHANGING CODE TO WRITE CHECK 


EXIT 


READ ‘"'RPAS"' 
;BRANCH IF ANY ‘ATA' BITS SET 
READ CONTROL AND STATUS REGISTER 


51S “TE“ST? 

YES, NO DRIVES TO CHECK 
REPORT AN ILLEGAL INTERRUPT 
sSeT gaat: ENABLE 


;RETURN 
phage? Fs: ene DRIVES THAT HAVE 
sAN ' 


pATA=1? 
> YES--BRANCH 
:MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE TO CHECK? 
;CLEAN OFF THE STACK 
;RETURN TO USER 

s INITIALIZING THE DRIVE ? 
BR IF NOT 

PROCESS THE DRIVE 

;PORT REGUEST OUTSTANDING ? 
;BR IF NOT 

START THE OUTSTANDING COMMAND 
;CHECK THE DRIVE STATUS 
BRANCH IF ONLINE 

; UNLOAD IN PROGRESS? 
;BRANCH IF NOT 

;GE1 DPB POINTER 


SEQ 0160 


a 





004737 
004737 


105761 


004737 


105761 
001321 


000701 


104005 
000677 


100406 
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041116 
037616 


033302 
040000 


037526 
033264 


033272 
037616 
033322 
033302 
020000 


000113 
040730 


177777 
041752 


000010 
040554 


033272 
1002106 
040554 
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63 
SINGLE/DUAL PORT RH11/RP04/5/6 Privé (REV 1.0) 


3$: 
5$: 


6$: 


7$: 


8$: 


SCOA: 


PC,SVRH11 
PC,SC12 


DRYSTACR1) 

6 
WBITIG,RPERRS 
°$ 

$¢11 
RPERRS#2,R5 
SCOA 
DRVACT(RI) 
$C6 

PC,SCI2 
DPINT(R1) 

$C4 
DRVSTA(R1) 

7$ 
#B1113,RPERRS*+6 
8% 

#113,-(SP) 
RO,WRT.RP 


(SP) ,R5 
2 
$C4 


5 

$C4 

R1 
#-1,TIMER(RI) 
R1 


PC,GETRLQ 


R1,RPCS2(R4) 
RO,RD.RP 


(SP),R5 
(SP)+¢ 


1$ 
431 dass 


$C 
+4 ‘hie 'BIT07! Birds. 16(R2) 
SC 


RO,RD.RP 


(SP)+,R5 
PC,SVRH11 
#111,-(SP) 
RO,WRT.RP 


SAVE THE RH11/RP04/5/6 REGISTERS 
SAVE RPDS1, RPER1, RPER2, AND RPERS 
;ALSO DO A DRIVE INIT (DRVINT) 


;D1D DRIVE COME ONLINE? 
; NO---BRANCH 

;WAS THERE AN ERROR? 
;BR IF ERROR 


:NO ERROR 

;YES == PICKUP RPER1 AND 
;GO PROCESS THE ERROR 
;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
;BR IF EITHER 

;SAVE RPDS1, RPER1, RPERZ, AND RPERS 
;ALSO DO A DRVINT 

; TRYING TO INIT THE DRIVE ? 

;BR IF YES, CHECK ON MORE DRIVES 
;CHECK ON DRIVE'S STATUS 

;BR IF UNSAFE 

; ADDRESS PLUG CHANGED ? 

BR IF YES 

;RELEASE COMMAND 

;WRITE THE COMMAND INTO RPCS1 
REGISTER INDEX 

PARITY EXIT ADDRESS 

;PICKUP (RPAS) BEFORE THE ERROR CALL 
REPORT THE UNEXPECTED ATTENTION 

;GO CHECK FOR MORE ATA'S 


;REPORT THE ADDRESS PLUG CHANGE 
;CHECK FOR MORE DRIVES 
;SETUP TO ADDRESS WORDS 


;STOP THE TIMER 

RESTORE THE DRIVE ADDRESS 

;GET THE DPB POINTER FROM THE QUE UE 
;SELECT DRIVE 


:READ THE RPO4'S STATUS REG. 


;AND PUT IT IN R5 
;WAS THERE AN ERROR? 
;BR IF ERROR 


Pag DRIVE'S STATE 
IF DRIVE ACTIVE WITH ORDER 


READ ERROR REGISTER #1 


;AND SAVE IT IN R5 
>SAVE RH11/RP04/5/6 REGISTERS 
s ISSUE A DRIVE CLEAR 


SWAS ""UNSAFE' CONDITION =1? 
;BRANCH IF YES 


: INFORM USER OF ERROR RECOVER COMPLETION 
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8444 037276 005702 TST R2 ;ANYTHING IN QUEUE ? 

8445 037300 001447 BEQ $C? ;BR IF NOT 

8446 037302 052762 100240 000016 BIS #BITIS!B1107:!B1105, 16(R2) ; INFORM USER OF ERROR 
8447 037310 000443 BR $¢7 

8448 037312 004037 040554 1$: JSR RO,RD.RP ;READ DRIVE STATUS REG. #1 

8449 037316 000012 RPDS1 

8450 037320 037476 $c8 

8451 037322 011605 MOV (SP) ,R5 7SAVE RPDS! IN R5 

8452 037324 006126 ROL (SP)¢ 7UERR''=1? 

8453 637326 100011 BPL 2% ;BR if NO--UNSAFE CLEARED 

8454 037330 112761 177777 033302 MOVB a-) so | hee DRIVE 1S UNSAFE 

8455 037336 004737 041116 JSR PC, SVRH ;SAVE RH11/RP04/5/6 REGISTERS 
8456 037342 052762 110000 000016 BIS #BiT15! Biri, 16(R2) ; INFORM USER OF UNSAFE ERROR 
8457 037350 000423 BR $C? 

8458 037352 032705 010000 2$: BIT FBI T12, 5 fe Sa 

8459 037356 001015 BNE 3% ;BR IF YES 

8460 037360 112761 177777 033272 MOVB #-1,DRVACT(R1) ;ACTIVE ERROR RECOVER 

8461 037366 112761 000001 033302 MOVB #1,DRVSTACRI) ; ONLINE 

8462 037374 006301 ASL R| 

8463 037376 012761 972460 033374 MOV #30000.,TIMER(R1) ;START 30 SECOND TIMER 

8464 037404 006291 ASR R1 

8465 037406 000137 036760 JMP SC4 

8466 037412 052762 100220 000016 3%: BIS #B1T15!B1107!B1104,16(R2) > INFORM USER OF ERROR 
8467 037420 105061 033272 SC7: CLRB DRVACT<R1) DRIVE 1S IDLE 

8468 037424 004737 041656 JSR PC,EMPTYQ ;DUMP THE QUEUE 

8469 037430 105761 033350 TSTB ULDFLG(R1) ;UNLOAD IN PROGRESS OR QUEUE? 
8470 037434 003002 BGT 1$ ;BR IF NQT 

8471 037436 105061 033350 CLRB ULDFLG(R1) ; CLEAR UNLOAD FLAG 

8472 037442 116164 033416 000016 18: MOVB ATABIT(R1),RPAS(R4) ;CLEAR ATTENTION BIT 

8473 037450 105761 033302 TSTB DRVSTACR1) 1S THE DRIVE UNSAFE ? 

8474 037454 100406 BM] 2$ ;BR IF IT IS 

8475 037456 012746 000113 MOV #113,-(SP) ;RELEASE COMMAND 

8476 037462 004037 040730 JSR RO,WRT.RP ;WRITE THE COMMAND INTO RPCS1 
8477 037466 000000 RPCS1 REGISTER INDEX 

8478 037470 037476 $c8 PARITY EXIT ADDRESS 

8479 037472 000137 036760 2$: JMP SC4 > CHECK FOR MORE DRIVES 

8480 037476 105761 033272 $(8: TSTB DRVACT(R1) 1S DRIVE IDLE? 

8481 037502 001405 BEQ 1$ > YES--BRANCH 

8482 037504 004737 041752 JSR PC ,GETREQ ;GET DPB POINTER 

8483 037510 004737 035670 JSR PC,C17 ;PROCESS THF PARITY ERROR 

8484 037514 000402 BR 2$ ; CONTINUE 

8485 037516 004737 035716 1$: JSR PC,C17B ;PROCESS THE UNCORRECTABLE PARITY ERROR 
8486 037522 000137 036760 2$: JMP SC4 ;CHECK MORE DRIVES 

8487 037526 105761 033350 SC11: TS1B ULDFLG(R1) :''UNLOAD IN PROGRESS''? 

8488 037532 003402 BLE 1$ ;BRANCH IF NO 

8489 037534 105061 033350 CLRB ULDFLG(R‘) ;CLEAR UNLOAD FLAG 

8490 037540 105061 033272 1$: CLRB DRVACT(R1) ;SET ORIVE IDLE 

8491 037544 136137 033416 033544 BITB ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
8492 ;AN 1/0 COMMAND? 

8493 037552 001012 BNE 2$ BRANCH IF YES 

8494 037554 004737 041774 JSR PC ,POPQUE ;REMOVE REQUEST FROM QUEUE 

8495 037560 052762 000200 000016 BIS #B1107,16(R2) ;SET ‘DONE’ BIT 

8496 037566 905737 033570 TST SAVEFG SAVE THE REGISTERS? 

8497 037572 100002 BPL 2$ ;BRANCH IF NO 

8498 037574 004737 041116 JSR PC, SVRH11 SYES=-SAVE ALL OF THE RH11/RP04/5/6 REGS 
8499 037600 116164 033416 000016 2%: MOVB ATABIT(R1),RPAS(RG) ;CLEAR ATTENTION BI? 
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037606 


037630 
037636 
037644 


037720 
037722 


037730 
037732 


040022 


040026 
040032 
040034 
040042 
040044 
040046 
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004737 


016437 
016437 


016437 
004037 


001006 
006301 


012761 


006201 
000433 


000137 


005737 
001030 
112737 
104412 
005001 
005003 


034560 


000014 
000040 


000042 
033660 


177777 
000010 


033416 
904000 


025420 


033322 


033322 
033660 


033302 


041752 
140000 
041116 
041656 


033332 


034560 
036760 


033346 
000001 
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033262 
033264 


033266 
033270 


033374 


000016 


033374 


000016 


033347 


JSR PC,OPT START A REQUEST 
$C4 ;CHECK FOR MORE DRIVES 
$C12: MOV R1,RPCS2(R4) SELECT DRIVE 


MOV RPDS1(R4) ,RPERRS sSAVE THE FOUR REGISTERS THAT 
MOV RPER1(RG) ,RPERRS*#2 sWILL TELL US SOMETHING 
MOV RPER2Z(R4) ,RPERRS +4 
MOV RPER3(RG) ,RPERRS*+6 
JSR RO,DRVINT s INIT. THE STATE OF THE DRIVE 
BR 1$ ; TAKE ERROR EXIT 
RTS PC sRETURN 
1$: TST (SP) +¢ ;POP PC OFF OF THE STACK 
BR $¢c8 sPROCESS THE PARITY ERROR 
$(13: ASL R1 ;SETUP TO ADDRESS WORDS 
MOV #-1,TIMER(R1) ;STOP THE TIMER 
ASR * RI 5 
MOV R1,RPCS2(R4) >SELECT THE DRIVE 
MOVB ATABIT(R1),RPAS(R4) ;CLEAR THE ATTENTION BIT 
BIT MBIT11, (R4) sDRIVE AVAILABLE ? 
BNE 1$ :BR IF AVAILABLE 
ASL R1 
MOV #M10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
ASR R1 
BR 3$ sEXIT 
1$: TSTB DPINT(R1) s INITIALIZING THE DRIVE ? 
BEQ 2$ ;BR IF NOT 
CLRB DPINT(R}) sCLEAR THE INIT INDICATOR 
JSR RO,DRVINT 3GO INIT THE DRIVE 
NOP sDUMMY PARITY ERROR RETURN 
1STB DRVSTAC(R1) ;DRIVE ONLINE ? 
BGT 2$ ;BR IF YES -=- START ORDER 
TST R2 sQUEUE ENTRY FOR THE DRIVE 
BEQ 3$ sBR IF NOT 
JSR PC,GETREQ ;GET DPB ADDRESS 
BIS MBITIS!BIT14,16(R2) ;INFORM USER THAT DRIVE OFFLINE 
JSR PC,SVRH1} sSAVE THE REGISTERS 
JSR Tai hie sEMPTY THE REQUEST QUEUE 
BR 
2$: CLRB DPRQS(R1) :CLEAR THE PORT REQUEST INDICATOR 
JSR PC,OPT sSTART THE PENDING REQUEST 
3$: JMP $C4 sPROCESS OTHER DRIVES 
>RP04/5/6 TIMER ROUTINE 
3 CALL 
: MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
; JSR PC,RPITMR sCALL RPO4/5/6 TIME ROUTINE 
RPTMR: TST ACTDRV :CHECK “ACTDRV & ACTSTR" 
BNE 4% ;1F NON ZERO EXIT 
MOVB #1, ACTSTR sSET “‘ACTSTR" 
SAVREG >SAVE RO = R5 
CLR R1 sSTART WITH DRIVE 0 
CLR R3 





SEQ 0163 
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033347 


033430 
000010 
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033322 
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033342 
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033272 
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033660 


033272 


033342 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


1$: 


2s: 


3$: 
4$: 


Festi 
2(SP), TIMER(RS) 
2% 


;1S THE TIMER RUNNING? 
:BRANCH IF NO 

;COUNT THE INTERVAL 

:BR IF NO SOFTWARE TIMEOUT 


CALL SOFTWARE TIMEOUT ROUTINE 
3GO0 TO THE EXIT 
;MOVE TG NEXT DRIVE 


;OUT OF DRIVES? 
;BRANCH IF NO 


;RESTORE RO - R5 


ACTSTR 
(SP)+, (SP) 
PC 


;SOFTWARE TIMEOUT ROUTINE 


THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


“NOTE: 


CALL: 


S10: 


$101: 


1$: 


ef: 


MOV 
JSR 
RETURN 


:ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
;ADJUST THE STACK 
; RETURN 


#DRVNUM,R1 ;DRIVE NUMBER 

PC,STO 7 CALL 

R1,-(SP) ;SAVE RI 

R3,-(SP) ;SAVE R3 

RPADR,R4 ;GET ADDRESS OF ‘'RPCS1" 
R1,RPCS2(R4) >SELECT THE DRIVE 

RO,RD.RP ;READ "DRIVE STATUS REG" 

(SP)+ 71S ‘'DRY'’=1? 

$102 ;BR IF YES 

DPINT(R1) s TRYING TO INTIALIZE THE DRIVE ? 
$102 ;BR IF YES 

DPRQS(R1) ;OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
$T02 ;BR IF YES 

TRNSWT,R2 ;PICKUP TRANSFER WAIT QUEUE 
R1,DTUW ; TRANSFER UNDERWAY ON THIS DRIVE? 
1$ :BRANCH IF YES 

PC, GET DPB ADDRESS 


PC,SVRH11 

WBiT05 RPCS2(R4) 
DRVACT(R1) 
 atleceahiat 

R 


R3 
RO,DRVINT 
$105 
DRVACT(RI) 
4% 

TRNSWT ,R2 


DTUW,R1 
3$ 


GETR 
#BiT15! 81109, 16(R2) ;SET THE ERROR FLAGS 


; SAVE RH11/RP04/5/6 REGISTERS 
:"INIT' THE MASS BUS 


DRIVE IS IDLE 
;CLEAR THE UNLOAD FLAG 
START WITH DRIVE 0 


INIT. THIS DRIVE 

;PARITY ERROR RETURN 

:DRIVE IDLE BEFORE THE INIT.? 
> YES=-BRANCH 

;GET TRANSFER WAIT QUEUE 

WAS THERE 1/0 ON THIS DRIVE? 
7 YES=-BRANCH 


SEQ 0164 
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033416 


033322 
033332 
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033322 
033332 
177777 
035770 
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177777 
041752 
140000 
177777 


033332 
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041656 
041116 


MACY11 


000016 


033374 


033414 


033374 


033374 


000016 
033374 


000016 


grobeg yp 


03-JUL-79 


J.13 
10:41 PAGE 


167 


SINGLE/DUAL PORT RNTT/RPOG/S 76 DRIVER (REV 1.0) 


3$: 
4%: 


$102: 


S163: 


1$: 


$105: 
$106: 


$107: 


S108: 
S109: 


PC ,GETREQ 


DRVACT(R 
UEDFLGURI) 
#-1, TIMER(R3) 


PC, CLRQUE 
$109 


RPAS(R4) ,R5 
ATABIT(R1),R5 


$103 
DPINT(R1) 


$106 
DPRQS(R1) 
$107 
R1,DTUW 
$T01 
RO,RD.RP 


DPINT(R1) 

1$ 

DPRQS(Ri) 
$109 

#-1, TIMER(R3) 
$10 


DPINT(R1) 
DRVSTA(R1) 
#-1, TIMER(R3) 
PC,GETREQ 

R2 


$109 
vee 'BIT14, tocke) 


$10 
#-1,TIMER(RS) 
DPRQS(R1) 
PC,GETREQ 

Re 


$109 ;BR 
#BITIS!BIT2,16(R2) 


PC,EMPTYQ 
PC,SVRH11 
(SP)+,R3 
(SP)+,R1 
PC 


; INFORM USER OF INIT 

T DRIVE ACTIVE TO IDLE 
;NO UNLOAD 

:STOP THE TIMER 
;UPDATE THE INDEX 


;GET THE DPB POINTER FROM QUEUE 
#Bi115! a VoURe) NIT. 


; INCREMENT THE DRIVE NUMBER 


;LAST DRIVE BEEN CHECKED? 
;NO--LOOP 


;NO DATA TRANSFERS UNDERWAY 


sCLEAR TRANSFER WAIT QUEUE 
ate ALL REQUEST QUEUES 
sExX 

;READ ATTENTION REG 


:1S ATTENTION FOR THIS DRIVE UP ? 


> YES--BRANCH 


TRYING TO INTIALIZE THE DRIVE ? 
7;BR IF YES - DRIVE NOT ONLINE 


;OUTSTANDING PORT REQUEST FOR THE DRIVE ? 


BR IF YES = NO RESPONSE TO REQUEST 
;DATA TRANSFER UNDERWAY FOR THIS DRiveE 


;BR IF NO 
sYES=-CHECK ‘'RDY" 


;BR IF “RDY''=0 
INITIALIZING THE DRIVE ? 
:BR IF INIT PENDING 

;PORT REQUEST PENDING ? 
:BR IF NOT 

{STOP THE TIMER 


7EX] 
;GO HANDLE 


THE PARITY ERROR 


;CLEAR THE INITIALIZE INDICATOR 


7SET UNIT OFFLINE 
STOP THE TIMER 

;GET THE DPB ADDRESS 
REQUEST IN QUEUE ? 
;BR IF NOT 


FINISH 
:STOP THE TIMER 


; INFORM THE USER DRIVE NOT AVAILABLE 


;CLEAR PORT REQUEST INDICATOR 


[GET DPB ADDRESS 
;QUEUE ENTRY FOR DRIVE ? 
NONE 


If 
> INFORM USER OF PORT REQUEST ERROR 


CLEAR THE QUEUE FOR THE DRIVE 


SAVE THE REGISTERS 
sRESTORE R3 
sRESTORE R1 

; RETURN 


sROUTINE TO READ A RH11/RP04/5/6 REGISTER 


SEQ 0165 
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7 CALL : 
; JSR RO,RD.RP 3GO0 READ A REGISTER 
; INDEX ;REG. INDEX FROM BASE 
; ERRADR sERROR ADDRESS--PROCESS ERROR STARTING 
: ;AT THIS ADDRESS 
; RETURN sCONTENTS OF REG. IS ON THE STACK 
RD.RP: MOV MCPEMX,RD.RP2 sMAX. RETRYS ALLOWED 
MOV (SP) ,-(SP) ;SAVE RC FOR RETURN 
MOV RPADR,RD.ADR sFORM THE DESIRED ADDRESS 
ADD (RO)+,RD.ADR “USING THE BASE AND THE INDEX 
RD.RP1: MOV a(PC)+,(PC)+ ;READ THE DESIRED REGISTER OF THE RPOG 
RD.ADR: .WORD 0 ;ADDRESS 1S FORMED HERE 
RD.WRD: .WORD 0 =REG. CONTENTS PUT HERE 
MOV RD.WRD,2(SP) ;RETURN IT TO THE USER 
MOV RPADR,=-(SP) ;PUT THE ADDRESS ON THE STACK 
ADD #RPCS2, (SP) sFORM THE ADDRESS OF RPCS2 
BIT #B1T12,a(SP)+ ;CHECK THE ‘"NED’ BIT 
BNE RD.RP3 ;BR IF DRIVE NON-EXISTENT 
MOV QRPADR,-(SP) ;READ RPCS? 
BIT #B1113, (SP) ;D1D MCPE SET? 
BNE 1$ sBRANCH IF YES 
CMP (SP)+,(RO)+ ;ADJUST FOR RETURN 
- BR RD.RP4S sEXIT 
ERROR 3 ;REPORT ‘‘MCPE'’ ERROR 
TST DTUW ;DATA TRANSFER UNDERWAY? 
BM] 2$ ;NO--BRANCH 
BIT #B1714, (SP) sNO--"'TRE''=1? 
BEQ 2$ 3NO--BRANCH 
TST (SP) + sYES--CLEAN OFF THE STACK AND 
BR RD.RP3 > TAKE THE FATAL ERROR EXIT 
2$: BIS #B1114, (SP) sCLEAR "'MCPE'’ BY SENDING A ‘'l'’ TO “'TRE" 
SWAB (SP) sPOSITION BEFORE WRITING 
MOV pei ;FORM ADDRESS OF HIGH BYTE 
INC 
MOVB (SP)+,a(PC)+ sWRITE THE HIGH BYTE OF RPCS1 
3$: ~ WORD ; ADDRESS STORAGE 
DEC (PC)+ sEXCEEDED MAX. RETRYS 
RD.RP2: .WORD 3 
BGE RD.RP1 sBRANCH IF NO 
RD.RP3: MOV (RO), RO sFATAL ERROR EXiT 
MOV (SP)+, (SP) 
RD.RP4: RTS RO 
sROUTINE TO WRITE A REGISTER 
7 CALL 
: MOV DATA,-(SP) ;DATA TO BE LOADED ON THE STACK 
. JSR RO,WRT.RP :CALL THE ROUTINE TO LOAD(WRITE) THE REG, 
INDEX s INDEX OF THE REGISTER TO BE LOADED 
: ERRADR sADDRESS TO RETURN TO ON AN ERROR 
RETURN ;ERROR FREE RETURN 
WRT.RP: MOV MCPEMK ,WRT.R2 sMAX RETRYS ALLOWED 


SEQ 0166 
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000200 


104412 
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041020 
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177770 
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033430 
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040554 
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177776 
040554 


033430 
000010 
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1$: ADD 
WRT.R1: MOV 
WRT.WD: .WORD 
WRT.AD: .WORD 


WRT.R2: .WORD 


WRT.R3: MOV 


BR 
WRT.R4. TST 
WRT.RS: RTS 


2(SP) ,WRT.WD 
(SP)+, (SP) 
(RO)+,WRT.AD 


i$ 
#150,WRT.WD 
1$ 

RO,RD.RP 


(SP) 

#*C7,(SP) 
(SP)+,WRT.WD+1 
RPADR ,WRT.AD 
(PC)+,a(PC)+ 


0 

RPADR,=(SP) 
#RPCS2, (SP) 
#BIT12,a(SP)+ 
WRT .R3 
RO,RD.RP 


#B1T03,(SP)+ 
WRT .RS 
-2(RO),1% 
RO,RD.RP 


4 
CPC )* 

3 
WRT.R1 
(SP)+ 
(RO) ,RO 
WRT .RS 
(RO)+ 
RO 


;SAVE THE WORD TO WRITE 

;ADJUST THE STACK 

;GET INDEX OF REGISTER TO BE WRITTEN 
BRANCH IF NOT RPCS1 

1S THE COMMAND FOR DATA TRANSFERS? 
7YES--DON'T GET THE OLD Al6 & Al7, & PSEL 
;NO---COMBINE A168A17, & PSEL WITH 

; THE COMMAND BEFORE SENDING IT TO 

; THE RH11/RP04 


;FORM THE ADDRESS OF THE DISK REG. 
;LOAD THE DESIRED REG. 

;WORD TO WRITE GOES HERE 

ADDRESS 1S FORMED HERE 

;PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RPCS2 

;CHECK THE ‘NED* 317 

;BR IF DRIVE NON-EXISTENT 

;CHECK FOR PARITY ERROR ON WRITE 


BRANCH IF ‘'PAR=0"' 

;PICKUP THE INDEX 

;READ THE REG. 

REG. INDEX 

;RETURN TO THIS ADDRESS ON ERROR 
;REPORT THE PARITY ON WRITE ERROR 
;DECREMENT THE ERROR COUNT 

RETRY COUNTER 

;TRY AGAIN IF NOT FINISHED 

;CLEAN OFF THE STACK 

7 TAKE THE ‘PARITY ON WRITE’ ERROR EXIT 


sEXIT 
;ADJUST FOR ERROR FREE EXIT 


sROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14 


‘CALL 
: MOV 
; JSR 


SVRH11: oo 


1$: CMP 


#DPBNUM,R2 
PC,SVRH11 


RPADR ,R4 

(R2) ,RPCS2(R4) 
14(R2) ,R3 

6$ 


3$ 
3$,#RPDB 


:B 
MBITO7,RPCS2(R4) 


;DPB POINTER TO R2 
SAVE THE DRIVES REG'S 


7SAVE RO - RS 
sQUEUE ENTRY FOR THE DRIVE ? 
;BR IF NONE 


SELECT DRIVE 
;GET THE ERROR TABLE POINTER 
sEXIT IF NO ADDRESS 


;COUNTER & POINTER 

sREACHED THE BUFFER REGISTER ? 
R IF NOT 

<*On° SET ? 


SEQ 0167 





M13 
CZRJDDO, RPOG/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE 


170 
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8780 041164 001002 BNE 2% :BR IF SET ; 
8781 041166 005025 CLR (R3)4 STORE RPDB AS ZEROES 
8782 041170 000405 BR 4$ : CONTINUE 
8783 041172 004037 040554 2%: JSR RO,RD.RP =READ THE SELECTED REGISTER 
8784 041176 000000 3$: -wORD 0 sREGISTER INDEX 
8785 041200 041224 5$ TERROR RETURN ADDRESS 
8786 041202 012623 MOV (SP)+,(R3)4 =STORE THE REGISTER CONTENTS 
8787 041204 023727 041176 000046 4$: CMP 3%. #RPEC2 REACHED THE END ? 
8788 041212 001406 BEQ :BR IF YES 
8789 041214 062737 000002 041176 ADD 3. 38 s INCREMENT THE REGISTER INDEX 
8790 041222 000751 BR 1$ CONTINUE READING THE REGISTERS 
8791 041224 004737 035670 5$: JSR PC,CI7 sPROCESS THE UNCORRECTABLE PARITY ERROR 
8792 041230 104413 6$: RESREG RESTORE RO - RS 
a? 041232 000207 RTS PC sRETURN 
ays sROUTINE TO SET THE INTERRUPT WITHOUT GETTING A ‘‘TRE"' 
CA LL 
8797 : MOV #DRVNUM,R1 DRIVE NUMBER TO R1 
8798 : JSR PC,SET.IE :SET "IE" 
8799 ; RETURN 
8800 
8801 041234 010446 SET.JE: MOV R4,-(SP) 7SAVE R4 
8802 041236 013704 033430 MOV RPADR,R4 PICKUP ADDRESS OF RPCS1 
8803 041242 010164 000010 MOV R1,8PCS2(R4) :SELECT DRIVE 
8804 041246 011446 MOV (R4) ,-(SP) ;READ RPCS1 
8805 041250 052716 040000 BIS #B1T14, (SP) :SET THE ‘‘TRE'’ BIT OF THE WORD READ 
8806 041254 000316 SWAB (SP) ;ADJUST FOR DATO 
8807 041256 112714 000100 MOVB #B1T06, (R4) SET 
8808 041262 032764 010000 000010 BIT WBITI2,RPCS2(R4) 51S ‘'NED''=1? 
8809 041270 001002 BNE 1$ :YES=-CLEAR "TRE" 
8810 041272 005726 TST (SP) + “CLEAN OFF THE STACK 
8811 041274 000402 bere 2$ one 
8812 041276 112664 000001 1$: MOVB (SP)+,1(R4) CLEAR TRE’ | 
8813 041302 012604 2$: MOV (SP)+,R4 sRESTORE R4 
ate 041304 0002C7 RTS PC RETURN TO CALLER 
8816 QUEUE CCUNT 
8817 041306 000 QCNT: .BYTE 0 :DRIVE 0 
8818 041307 000 BYTE 0 sDRIVE 1 
8819 041310 000 BYTE 0 :DRIVE 2 
8820 041311 000 BYTE 0 :DRIVE 3 
8821 041312 000 BYTE 0 :DRIVE 4 
8822 041313 000 BYTE 0 :DRIVE 5 
8823 041314 000 BYTE 0 :DRIVE 6 
$826 041315 000 BYTE 0 DRIVE 7 
east QUEUE INPUT POINTERS 
8828 041316 041400 QINPT: .WORD aQpdRvO :DRIVE 0 
8829 041320 041420 WORD QDRv1 :DRIVE 1 
8830 041322 041440 -WORD QDRvV2 sDRIVE 2 
8831 041324 041460 WORD QDRv3 DRIVE 3 
8832 041326 041500 WORD QDRV4 sDRIVE 4 
8833 041330 041520 WORD QDRv5 :DRIVE 5 
8834 041332 041540 WORD QDRV6 :DRIVE $ 


8835 041334 041560 -WORD QDRv? ; DRIVE 
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041400 
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041420 
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041500 
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041600 
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041306 
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;QUEVE OUTPUT POINTERS 


QOUTPT: 


QSTART: 
QSTOP: 


«WORD 
«WORD 
«WORD 
- WORD 
«WORD 
«WORD 
- WORD 
« WORD 


» WORD 
. WORD 
. WORD 
«WORD 
«WORD 
- WORD 
- WORD 
. WORD 
. WORD 


QDRVO 
QDRvV1I 
QDRv2 
QDORVS 
QDRV4 
QDRVS 
QDRV6 
QDRv7 


QDRVO 
QDRv1 
QDRv2 
ODRvV3 
QDRV4 
QDRVS 
QDRV6 
QDRvV?7 
QTERM 


;DRIVE REQUEST QUEUES 


QDRVO: 
QDRV1: 
QDRV2: 
QDRv3: 
QDRvV4: 
QDRvVS: 
QDRV6: 
QDRv7: 
QTERM=-. 


BLK 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 


ek et ee so 
ooooo°o°0°o 
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;DRIVE 0 START ADDRESS 


DRIVE 0 STOP ADDRESS : DRIVE 1 START ADDRESS 


;STOP DRIVE 1--START DRIVE 
STOP DRIVE 2--START DRIVE 
:STOP DRIVE 3--START DRIVE 
:STOP DRIVE 4--START DRIVE 
STOP DRIVE 5--START DRIVE 
STOP DRIVE 6--START DRIVE 
STOP DRIVE 7 


sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


CALL 


CLRQUE: 


2%: 


SAVREG 
M 


BNE 
RESREG 


PC, CLRQUE 


#QCNT,R2 
(R2)+ 

(R2)+ 

(R2)+ 

(R2)+ 

#8. aR3 
#QSTART,RI1 
(R1)+,(R2)¢ 
R3 

1$ 

#8. ,R3 
#OSTART,RI 
(R1)+#,(R2)¢ 
R3 


2% 


;SAVE RO - R5 

;ZERO THE QUEUE COUNTS 
sDRIVES 0 & 1 

sDRIVES 2 & 3 

sDRIVES 4 & 5 

sDRIVES 6 & 7 

sMOVE THE STARTING 
:ADDRESS OF THE GUEUE INTO 
7 THE QUEUE INPUT POINTER 


;MOVE THE STARTING ADDRESS 
OF THE QUEUE INTO THE 
;QUEVE OUTPUT POINTER 


RESTORE RO = R5 


NO WE WM 


SEQ 0169 , 
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000207 


105061 
006301 
016161 
006201 
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122761 
001421 
105261 
006301 


000200 


005002 
105761 
001404 
006301 
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000207 
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000002 
041316 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


PC 


sEMPTY THE QUEUE SPECIFIED BY R1 


RIS 
CALL 
; MOV 
; JSR 
EMPTYQ: CLRB 
ASL 
MOV 
ASR 
RTS 


:ROUTINE TO PUT 
= CALL 


RETURNI 
RETURN2 


DRVQUE: CMPB 


Se Be Be eee 
~@ 


1$: ASR 
2s: RTS 
;ROUTINE TO GET 


DRVNUM,R1 ;DRIVE NUMBER TO RI 
PC,EMPTYQ 
+ atehaes ;CLEAR NUMBER OF ITEMS IN QUEUE 


R 

QINPT(R1),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
RI 

PC 

A REQUEST IN QUEUE 


#ORVNUM,R1 ;DRIVE NUMBER 
#DPB,R2 ;ADDRESS OF PARAMETER BLOCK 
RO ,DRVQUE ;GO PUT REQUEST IN QUEUE 


RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE 


#10,QCNT(RI) ;1S QUEUE FULL? 

2$ :BR IF YES-TAKE RETURNI 
eli ; INCREMENT QUEUE COUNT 
R 


R2,@QINPT(R1) ;PUT THIS REQUEST IN QUEUE 
#2,QINPT(R1) ; UPDATE THE QUEUE POINTER 
QINPT(Ri),QSTOP(R1) ;TIME TO RESET THE POINTER 


1$ ;BRANCH IF NO 
QSTART(R1),QINPT(R1) ;YES--RESET POINTER 
R1 


(RO)+ > TAKE RETURN 2 
RO ;RETURN TO USER 


THE "'DPB'' ADDRESS OF NEXT REQUEST IN QUEUE 


#DRVNUM,R1 DRIVE NUMBER TO R1 

PC,GETREQ ;GO GET THE REQUEST 
;R2=""DPB'’ ADDRESS OF THE REQUEST 
;R2=0 IF NO REQUEST IN QUEUE 


Re 

QCNT(R1) 71S THERE ANY REQUEST IN QUEUE? 

ty ;NO---BRANCH 

R 

QQOUTPT(R1),R2 ;PICKUP "‘DPB’’ POINTER FOR THIS DRIVE 
R1 

PC ;RETURN TO USER 


;ROUTINE TO ""POP’’ THE REQUEST FROM QUEUE 


. MOV 
: JSR 
. RETURN 
GETREQ: CLR 
TSTB 
BEQ 
1$ ASL 
MOV 
ASR 
2s: RTS 
3s CALL 
3 MOV 


#DRVNUM,RI ;DRIVE NUMBER 10 RI 


Lee STE 


SEQ 0170 


on 


CZRJDDO, RPO4/5/6 MLT-DR LGC 


CZRIDD.P11 


8951 041774 105361 


8959 042034 000207 


8960 
8961 
8962 
8963 
8964 
8965 
8966 
8967 
8968 
8969 
8970 000001 
8971 000002 
8972 000003 
8973 000004 
8974 000006 
8975 000910 
8976 000011 
8977 000012 
8978 000014 
8979 000016 
8980 
8981 
8982 
8983 000020 
8984 000022 
8985 000024 
8986 000026 
8987 000027 
8988 000030 
8989 000032 
8990 000036 
8991 000042 
8992 000046 
8993 000052 
8994 000056 
8995 000060 
8996 000062 
8997 000064 
8998 000066 
8999 000070 
9000 000072 
9001 
9002 
900% 


06-JUN-79 08:32 


041306 
041336 
000002 
041336 


041356 


MACY11 


041336 
041360 


041336 


C 14 
10:41 


;CALL TO REMOVE REQUEST 
;R2=ADDRESS OF DPB REMOVED 


;DECREMENT QUEUE COUNT 


;GET THE "‘DPB’’ POINTER 
; UPDATE THE QUEUE POINTER 


;TIME TO RESET THE POINTER? 
NO--BRANCH TO EXIT 
7 YES--RESET THE POINTER 


30A(1052) 03-JUL-79 GE 173 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 
; JSR PC ,POPQUE 
: RETURN 
POPQUE: DECB QCNT(R1) 

ASL RI 

MOV @QOUTPT(R1) ,R2 

ADD #2,QOUTPT(R1) 

ag QOUTPT(RI), QSTOP(R1) 
N 

MOV QSTART(R1), QouTPT (RI) 

1$: ASR R1 
RTS PC 


;RETURN TO USER 


pet eeteeerererereeeeerrrertertterrrereeeeeeReaeeeneteeeRekeeeeeteeee 


~SBTTL 


;BLOCK LOCATION EQUATE STATEMENTS 


;FMT,HCI,ECI OR OFFSET CODE 

;OPERATION CODE 

;PORT SELECT & BITS Al6, Al7 

;WORD COUNT (2°S COMP) 

;BUFFER ADDR OR REGISTER TABLE POINTER 
;SECTOR ADDRESS OR 1ST REG ADDR 

; TRACK ADDRESS OF LAST REG ADDR 
;CYLINDER ADDR 

;REGISTER STORAGE (IF ERROR) 

;STATUS WORD (SET BY DRIVER) 


SFMT 
$COMND 
$PSEL 
$WRDM 
$BUF 
$SEC 
$TRK 
$CYL 
SREG 
$TATUS 


DATA, 


fo te te te th te te tb eo 


CONTROL, 


1 
SFMT+1 
SFMT+2 
SFMi+3 
SFMT+5 
SFMT+7 
$FMT+10 
$FMT+11 
SFMT+13 
SFMT+15 


& STATUS BLOCKS 


peeeereeeeeeeeeerte teeter ereereeetereeteeeeeeteeneenereneneteeees 


sDRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


$WRDL 
$SSEC 
$CODE 
$SPACK 
$PREVO 
SPATTC 
$PREVA 


te @ te te tO te ee te Oe 


$FMT+17 

$WRDL+2 

$SWRDL+4 

$WRDL +6 

$WRDL+7 

$WROL+10 
$WROL+12 
$WRDL+16 
$WRDL+22 
$WRDL +26 
S$WROL +32 
$WRDL*+ 36 
$WRDL*+40 
SWRDL +42 
SWRDL +44 
$WRDL +46 
$WRDL +50 
$WRDL*+52 


sWORD COUNT (NOT 2'S COMP) 

SECTOR SIZE FOR CURRENT OPERATION 
PRESENT COMMAND SELECTION CODE 
:WRITE DATA PACK INDICATOR 
PREVIOUS COMMAND SELECTION CODE 
:PATTERN CODE 

PREVIOUS ADDRESS = TRACK, 
OPERATION COUNT 

>SEEK COUNT 

:TOTAL BITS XFERED COUNT (R & Ww) 

TOTAL BITS READ COUNT 

TOTAL ERRORS (ALL TYPES) COUNT 

:"SOFT' ERROR COUNT 

:"HARD' ERROR COUNT 

:'SKI' OR ‘OCYL' ERROR COUNT 

PROG DETECTED MISPOSITIONING ERROR S COUNT 
:PASS COUNTER 

OPERATION QUEUE ‘FAIRNESS* COUNT 


SECTOR, CYLINDER 


INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 


(enema oee 


an 


D 14 
CZRJDDO, RPO4/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE 174 





CZRIDD.P11 06-JUN-79 08:32 DATA, CONTROL, & STATUS BLOCKS SEQ 0172 
9004 000074 $NCODE = SWRDL +54 sNEXT OPERATION CODE 
9005 000075 S$NPATC = $NCODE+1 ;NEXT PATTERN 
9006 000076 $NSEC = $NCODE+2 sNEXT SECTOR 
9007 000077 $NIRK = $NCODE+3 sNEXT TRACK 
9008 000100 $NCYL = $NCODE+4 sNEXT CYLINDER 
9009 000102 SNWRDL = $NCODE +6 :NEXT BUFFER SIZE. 
a ds 000104 $NEXT z $NCODE+10 sPARAMETER SELECTION INDICATOR 
aid | s INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 
9014 000106 MAXCYL = $NCODE+12 sMAXIMUM CYLINDER ADDRESS 
9015 000116 MINCYL = MAXCYL#2 s;MINIMUM CYLINDER ADDRESS 
9016 000112 MAXTRK = MAXCYL +4 sMAXIMUM TRACK ADDRESS 
9017 090114 MINTRK = MAXCYL*+6 sMINIMUM TRACK ADDRESS 
9018 000116 MAXSEC = MAXCYL+10 ;MAXIMUM SECTOR ADDRESS 
9019 000120 MINSEC = MAXCYL+4+12 sMINIMUM SECTOR ADDRESS 
ast 000122 SFIRST = MAXCYL4+14 sFIRST OPERATION INDICATOR 
oaee :BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE 
oase 000124 $BDSEC = MAXCYL+16 -;BAD SECTOR STORAGE TABLE 
4 sDRIVE 1D AREA INDEX BQUATE.. a 
ease 000224 $DRVID = $BDSEC+100 :DRIVE ID 
pat >RH11/RP04/5/6 REGISTER EQUATES ; 
9032 000234 $RPCS1 = -secbh sp :RPO4 REGISTER STORAGE 
9033 000236 $RPwC = $RPCS1+ 
9034 000240 $RPBA = $RPCS144 
9035 000242 $RPDA = $RPCS1+6 
9036 000244 $RPCS2 = $RPCS1+10 
9037 000246 $RPDS1 = $RPCS1+12 
9038 000250 $RPERI1 = $RPCS14+14 
9039 000252 $RPAS = $RPCS1+16 
9040 000254 S$RPLA = $RPCS1+20 
9041 000256 $RPDB = $RPCS1+22 
9042 000260 SRPMR = $RPCS14+24 
9043 000262 $SRPDT = $RPCS1+26 
9044 000264 SRPSN = $RPCS1+30 
9045 000266 SRPOF x $RPCS1+32 
9046 000270 $RPCA = $RPCS1+34 
9047 000272 $RPCC z $RPCS1+36 
9048 000274 $RPER2 = $RPCS1+40 
9049 000276 $RPER3 = $RPCS1+42 
9050 000300 $RPEC1 = $RPCS1+44 
905i 000302 $RPEC2 = $RPCS1+46 
9052 
9053 
ty sBLOCK FOR DRIVE 0 
90 
9056 042036 000 000 DRIVEO: .BYTE 0,0 sDRIVE NUMBER 
9057 042040 000005 -BLKW 5 
9058 042052 042272 WORD . *$RPCS1-$REG 
9059 042054 000266 .BLKB $RPEC2-$REG 


eS eee 






























CZRJDOD.P11 


9064 042342 
9065 042344 
9066 042356 
9067 042360 


9072 042646 
9073 042650 
9074 042662 
9075 042664 


9080 043152 
9081 043154 
9082 043166 
9083 043170 


9088 043456 
9089 043460 
9090 043472 
9091 043474 


9096 043762 
9097 043704 
9098 043776 
9099 044000 


9104 044266 
9105 044270 
9106 044302 
9107 044304 


9111 

9112 044572 
9113 044574 
9114 044606 
9115 044610 





06-JUN-79 08: 


001 
000005 
042576 
000266 


002 
000005 
043102 
000266 


003 
000005 
043406 
000266 


004 
000005 
043712 
000266 


005 
000005 
044216 
000266 


000266 


007 
060005 
045026 
000266 


CZRJDDO, RPOG/5/6 MLT-DR rae 


000 


000 


000 


000 


000 


000 


000 


MACY11 30A(1052) 


DATA, 


03-JUL-79 
CONTROL, & STATUS BLOCKS 


;BLOCK FOR DRIVE 1 


DRIVE: 


; BLOCK 


DRIVE2: 


;BLOCK 


DRIVES: 


;BLOCK 


DRIVES: 


;BLOCK 


DRIVES: 


; BLOCK 


DRIVE6: 


;BLOCK 


DRIVE?7: 


-BYTE 
-BLKW 
« WORD 
-BLKB 


1,0 
5 


. *$RPCS1-EREG 


10:41 


SRPEC2-$REG 


FOR DRIVE 2 


-BYTE 
-BLKW 
«WORD 
-BLKB 


2,0 
5 


. *$RPCS1-SREG 


SRPEC2-$REG 


FOR DRIVE 3 


-BYTE 
-BLKW 
- WORD 
-BLKB 


3,0 


. *SRPCS1-$REG 


SRPEC2-$REG 


FOR DRIVE 4 


-BYTE 
-BLKW 
. WORD 
-BLKB 


4,0 
5 


. *$RPCS1-$REG 


SRPEC2-$SREG 


FOR DRIVE 5 


-BYTE 
-BLKW 
«WORD 
-BLKB 


5.0 


. *$RPCS1-$REG 


SRPECO-$REG 


FOR DRIVE 6 


BYTE 
~BLKW 
. WORD 
-BLKB 


6,0 
5 


. *$RPCS1-SREG 


SRPEC2-$REG 


FOR DRIVE 7 


BYTE 
~BLKW 
WORD 
-BLKB 


7,0 
5 


. *$RPCSI-$REG 
$RPEC 


2-$REG 


E 14 
PAGE 175 » 


sDRIVE 


; DRIVE 


sORIVE 


sDRIVE 


i DRIVE 


: DRIVE 


DRIVE 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


SEQ 0175 


SE A CRO a ee) oe eT - 
| 


F i4 
SSyrege RP04/5/6 MLT=-DR LGC MACY11 30A(1052) O3-JUL=79 10:41 PAGE 176 
CZRJDD.P11 06-JUN-79 08:32 DATA, CONTROL, & STATUS BLOCKS SEQ 0174 


16 
17 

A ;GENERAL PURPOSE DPB - USED BY 'READHD', ‘RECALT', ‘OFFSET’, @'RINCTIR' 
20 


045076 000000 000000 177774 GENDPB: .WORD 0,0,-4,CYLDER 

9121 045104 054746 

9122 045106 000000 000000 045116 WORD (0,0,GENREG,O 

9123 045114 000000 

91246 045116 000024 GENREG: .BLKW 24 REGISTER STORAGE IF ERROR 


9126 spe ererererrrrerereerereserareeerreererannenerereneneeAreneeenene 


9128 -SBTTL ERROR MESSAGES 


9130 si etteeeeerrrererererreneeeerererereteneeneneeaeeenterenererereres 


9132 045166 044122 030461 044440 EMI: eASCIZ /RHi1 INTERRUPT OCCURRED (RPAS = 0)/ 
9133 045174 052116 051105 052522 
9134 045202 052120 047440 041503 
9135 045210 051125 942522 020104 
9136 045216 051050 040520 020123 
9137 045224 020075 024460 000 


9139 045231 125 042516 050130 EM2: «ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
9140 045236 041505 042524 020104 

9141 045244 052101 042524 052116 

91462 045252 047511 020116 041517 

9143 045260 052503 051122 042105 

9144 045266 000 


9146 045267 115 051501 041123 EM3: -ASCI1Z /MASSBUS PARITY ERROR (MCPE=1)/ 
9147 045274 051525 050040 051101 
9148 045302 052111 020131 051105 
9149 045310 047522 020122 046450 
9150 045316 050103 036505 024461 
sigs 045324 000 
9153 045325 115 051501 041123 EM4: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 
9154 045332 051525 050040 951101 
9155 045340 052111 020131 051105 
9156 045346 047522 020122 050050 
att 045354 051101 030475 000051 
9159 045362 042101 51104 051505 EMS: -ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 
9160 045370 020123 046120 043525 
9161 045376 041440 940510 043516 
9162 045404 020105 044502 020124 
peer 045412 042523 000124 
64 
9165 045416 044122 030461 042040 EMO: eASCIZ2 /RH11 DIDN'T RESPOND TO ADDRESSING/ 


9166 045424 042111 023516 020124 
9167 045432 042522 050123 047117 
9168 045440 020104 047524 040440 
9169 045646 042104 042522 051523 
9170 0454654 047111 000107 





so 
_ 
- 
w 


CZRIDDO, RPOS/5/6 MLT=DR LGC 
CZRIDD.F11 


045460 


045516 


045523 
045530 
045536 
045544 
045552 


045556 
045564 
045572 
045600 
045606 


045607 


045652 
045660 


045661 
045666 
045674 
045702 


045704 
045712 
045720 
045726 
045734 


045740 
045746 
045754 


045761 
045766 
045774 
046002 
046010 


046012 
046020 
046026 
046034 
046042 
046050 
046056 


06-JUN-7 
Rake 


051122 


106 
046440 
051525 
052111 
047522 


042520 
042524 
053105 
047125 

000 


117 
044524 
052117 
046120 
053440 
020116 
046040 

000 


104 
055440 
043117 
000105 


047516 
047520 
047524 
020124 
051505 


042510 
041440 
051122 


000122 


051127 
044103 
051105 
020055 
041440 
024040 
024447 


9 08:32 


047503 


051117 


052101 
051501 
050040 
020131 
000122 


051522 
052116 
041511 
040523 


042520 
047117 
041440 
052105 
052111 
044524 
046511 


044522 
047105 
046106 


051040 
051516 
050040 
042522 
000124 


042101 
041522 
051117 


052101 
041505 


041504 
051105 


052111 


051440 


MACY11 30A(1052) 


051122 
2 


042506 


040522 
047040 
046517 
042105 
044510 
042515 
052111 


042526 
v20124 
047111 


051505 
020105 
051117 
052521 


051105 
042440 

000 
020101 
047522 


020105 


052105 


EM10: 


EM11: 


EM12: 


EM13: 


EM14: 


EM15: 


EM20: 


EM21: 


EM22: 


G 14 
O3-JsUL-79 10:41 PAGE 177 
ERROR MESSAGES 


«ASCIZ 


~ASCIZ 


-ASCIZ 


eASCIZ 


eASCI2 


eASCI2 


eASCIZ 


eASCIZ 


eASCIZ 


/UNCORRECTABLE MASSBUS PARITY ERROR/ 


/FATAL MASSBUS PARITY ERROR/ 


/PERSISTENT DEVICE UNSAFE/ 


/OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 


/DRIVE WENT OF FLINE/ 


/NO RESPONSE TO PORT REQUEST/ 


/HEADER CRC ERROR/ 


/DATA CHECK ('DCK') ERROR/ 


/JWRITE CHECK ERROR = DATA CHECK ("DCK") SET/ 


SEQ 0175 


CZRIDDO, RPOS/5/6 MLT-DR LGC 
06-JUN-79. 08: 32 


CZR 


JOD.P11 


046064 


046065 
046072 
046100 
046106 
046114 
046122 
046150 
046136 


046144 
046152 
046160 
046166 
046174 
046202 
046210 


046212 
046220 
046226 
046234 
046242 
046250 
046256 
046264 
046272 


046273 
046300 
046306 
046314 


046320 
046326 
046334 
046342 
046350 


046355... 
046362° 
046370 © 


046376 
046404 


046407 
046414 
046422 
046430 
0464 36 
046444 


046452 
046460 
046466 


000 


020124 
042510 


000104 
042510 


106 
020124 
020122 
023522 


042510 


044524 
024040 


042525 


042101 
040505 
047522 
043047 
044502 
050117 


042101 
040505 
047522 
042510 
041440 
042522 
042503 
051122 


051117 
051105 
023450 
000051 


042101 
046517 
024040 
024447 
051117 


051511 
047101 
042040 
042440 

000 


042520 


*047117 


046517 
020105 
023511 
047522 


053111 
044515 
042047 


MACY11 30A(1052) 


042520 


051105 


051117 


040515 
047522 
042506 


051105 
040520 
044047 
042440 

000 


042503 
047505 
044522 
051122 


040522 


000122 


020105 
043516 
042524 


EM23: 


EM24: 


EM25: 


EM26: 


EM27: 


—M30: 


—EM31: 


EM32: 


H 14 
03-JUL-79 10:41 PAGE 178 
ERROR MESSAGES 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCI2 


eASCI2 


eASCI2 


/WRITE CHECK ERROR = DATA CHECK (°DCK*) NOT SET/ 


/HEADER READ ERROR = ‘FMT® BIT DROPPED/ 


/HEADER READ ERROR = HEADER COMPARE (°HCE') ERROR/ 


/FORMAT ERROR (°FER')/ 


/HEADER COMPARE (‘HCE*) ERROR/ 


/MISCELLANEOUS DRIVE ERROR/ 


/OPERATION INCOMPLETE ("OPI*) ERROR/ 


/DRIVE TIMING ("DIE") ERROR/ 


SEQ 0176 


en 


i | 
































046474 
046502 


046505 


046556 
046562 


046612 
046620 


046624 
046632 
046640 
046646 
046654 


046662 
046670 
046676 
046704 
046712 


046713 
046720 
046726 
046734 
046742 
046750 
046756 
046764 
046772 


046775 
047002 
047010 
047016 
047024 
047032 


047033 
047040 
047046 
047054 
047062 
047070 
047076 


CZRIJDDO, RPOS/5S/6 MLT=-DR LGC 
CZRIOD.P11 


06-JUN-79 08:32 


020116 
042524 


051127 
046103 
040506 
020105 
023506 
047522 


047111 


051105 


051127 
047514 
053447 
042440 

000 


104 
044103 
023450 
020051 
052504 
053440 
041440 
041440 
042116 


122 
051117 
052502 
047101 


042440 
000 


000 


052111 
041517 
046111 
023450 
020051 
000122 


040526 


030510 
052440 
020123 
043123 
051122 


051525 


044440 
042522 


MACY11 . 


000122 


020105 
024040 
024447 
051117 


040515 


020061 
044516 
051124 
051105 
051117 


EM33: 


EM34: 


EM35: 


EM36: 


EM37: 


EM4O: 


EMG]: 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCI2 


ASCI7Z 


1 14 
A(1052) O3-suUL-79 10:41 PAGE 179 
RROR MESSAGES 


/PARITY ("PAR") ERROR AFTER OPERATION STARTED/ 


/WRITE CLOCK FAILURE (*WCF*) ERROR/ 


/INVALID ADDRESS ("IAE') ERROR/ 


/WRITE LOCK ('WLE*) ERROR/ 


/DATA CHECK ("DCK') SET DURING WRITE CHECK COMMAND / 


/RH11 OR UNIBUS TRANSFER ERROR/ 


/BUS ADDRESS OR WORD COUNT INCORRECT/ 


ey 


SEQ 0177 


J14 
CZRJDDO, RPOS/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL-79 10:41 PAGE 180 


CZRJDD.P11 06-JUN-79 08:32 ERROR MESSAGES SEQ 0178 
9340 047077 104 052101 020101 EM42: -ASCIZ /DATA COMPARE ERRORS = NO OTHER ERROR(S) DETECTED/ 
9341 047104 047505 050115 051101 
9342 047112 020105 051105 047522 
9343 047120 051522 026440 047040 
9344 047126 020117 052117 042510 
9345 047134 020122 051105 047522 
9346 047142 024122 024523 042040 
9347 047150 052105 041505 042524 


9348 047156 000104 


9350 047160 040503 023516 020124 EM43: eASCIZ = /CAN'T MATCH DATA READ WITH A PATTERN/ 
9351 047166 040515 041524 020110 

9352 047174 040504 040524 051040 

9353 047202 040505 020104 044527 

9354 047210 044124 040440 050040 

9355 047216 052101 042524 047122 

9356 047224 000 


9358 047225 105 051122 O51117 EM44: -ASCIZ /ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RHI11/ 
9359 047232 041040 052111 051450 
9360 047240 020051 042523 026124 
9361 047246 041040 052125 047040 
9362 047254 020117 051105 047522 
9363 047262 020122 044523 047107 
9364 047270 046101 042105 041040 
9365 047276 020131 044124 020105 
9366 047304 044122 030461 000 


9368 047311 105 041503 0460460 £€M45: .ASCIZ /ECC LOGIC FAILURE = POSITION REGISTER VALUE TOO LARGE / 
9369 047316 043517 041511 043040 

9370 047324 044501 052514 042522 

9371 047332 026440 050040 051517 

9372 047340 052111 047511 020116 

9373 047346 042522 044507 052123 

9374 047354 051105 053040 046101 

9375 047362 042525 052040 047517 

9376 047370 046040 051101 042507 

9377 047376 000 


9379 047377 102 051525 040440 £EM46: .ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 
9380 047404 042104 042522 051523 

9381 047412 040440 042116 053440 

9382 047420 051117 020104 047503 

9383 047426 047125 020124 047516 

9384 047434 020124 047503 051 
9385 047642 051511 042524 052 
9386 047450 000 


9388 047451 123 042505 020113 £M50: .ASCIZ /SEEK INCOMPLETE ("SKI") OR OFF CYLINDER (*OCYL") ERROR/ 
9389 047456 047111 047503 050115 
9390 047464 042514 042524 024040 
9391 047672 051447 044513 024447 
9392 047500 047440 020122 043117 
9393 047506 020106 054503 044514 
9394 047514 042116 051105 024040 
9395 047522 047447 054503 023514 


i 
eo ee e+ ee 


CZRJDDO, RPO4/5/6 MLT=-DR LGC 
CZRJDD.P11 


047530 
047536 


047540 
047546 
047554 
047562 
047570 
047576 


047603 
047610 
047616 
047624 


047626 


047633 
047640 
047646 
047654 
047662 
047670 
047676 
047704 


047710 
047716 
047724 
047732 


047736 
047744 
047752 
047760 
047766 
047774 


047775 
050002 


050106 


050110 
050116 


06-JUN-7 


000122 
050122 


040520 
051104 


052101 


051104 
020040 


044 
000122 
051104 


050122 
000012 


050122 
020040 


9 08:32 


051105 


051501 


000123 
053111 
042522 
020122 
000101 


053111 


041040 


050122 


020126 


MACY11 30A(1052) 


047522 


040522 


042526 
043101 
047522 


000 
042526 


051040 


020105 
020107 
042040 


020105 


042101 


042101 


050122 


006462 


020040 
040502 


EMS1: 


EM60: 


DiI: 
DHe: 


DH3: 


DH4: 


DHO: 


DH14: 


DH15: 


K 14 
O03-jUL-79 10:41 PAGE 181 
ERROR MESSAGES 


eASCIZ 


-ASCIZ 


-ASCIZ 
eASCI2 


~ASCIZ 


“eASCIZ 


eASCIZ 


ASCII 


eASCIZ 


ASCII 


/PROGRAM DETECTED POSITIONING ERROR/ 


/DRIVE UNSAFE ERROR/ 


/RPAS/ 
/DRIVE RPDS1 RPER1 RPER2 RPER3  RPAS/ 


/DRIVE REG ADR DATA/ 


/DRIVE REG ADR GOOD BAD / 


/$RPADR/ 


/DRV RPCS1 RPCS2 = RPDS1 RPER1 / 


/RPER2 RPERS  RPECI RPEC2/<CR><LF> 


/RPWC RPBA RPDA RPAS RPLA / 


SEQ 0179 


Se | 








CZRJDDO, RPOG/5/6 MLT-DR LGC 


CZRJOD.P11 


050124 


050202 
050207 


050252 


050260 
050264 
050272 
050300 


050302 
050310 


050312 
050320 


950324 
050330 
050336 
050344 
050352 
050360 
050366 


050374 
050402 


050410 


050476 


06-JUN-79 08:52 


020040 


052524 


001244 
001242 
033266 
000000 


001242 
000000 


001242 
040602 


001170 
000234 
000250 
000300 
000236 
090252 
000260 


000264 
000272 


051120 


041501 


020040 


005015 
051520 


051440 
006523 


000000 
033262 
033270 
040600 
041020 
000000 
000000 
000244 
000274 
000302 
000240 
000254 
000262 


000266 
000016 


051505 
051117 


020104 
027513 


MACY11 "Tenax te 


050122 


040514 


020040 
051115 
050122 

000 


020116 
047520 


000012 


033264 
001244 


040602 


041016 


000246 
000276 
000000 


000242 
000256 
000000 


000270 
000000 


047105 
aig 


020122 


051122 
020124 
051124 
042523 


RROR MESSAG 


DH16: 


L 14 
03-JUL=79 10:41 PAGE 182 
ES SEQ 0180 


-ASCIZ /RPDB RPMR RPDT/<CR><LF> 


-ASCIZ = /RPSN RPOF RPCA RPCC STATUS/<CR><iF > 


~EVEN 


-WORD = ATIN,O 


-WORD DRIVE,RPERRS,RPERRS*+2,RPERRS+4,RPERRS*+6,ATIN,O 


«WORD DRIVE,RD.ADR,RD.WRD,O 


«WORD ODRIVE,WRT.AD,WRT.WD,RD.WRD,O 


«WORD $RPADR,O 


«WORD $RPCS1,$RPCS2,$KhPDS1,$RPER],SRPERZ, SRPERS,SRPECI],SRPEC2.0 


-WORD $RPWC,S$RPBA,$RPDA,SRPAS,SRPLA,$RPDB,SRPMR,S$RPDI 0 


«WORD $RPSN,SRPOF ,SRPCA,SRPCC,S$TATUS,0 


-ASCIZ /PRESENT ORDER = / 


sASCIZ / PREVIOUS ORDER = / 


eASCIZ) @* ERROR AT BAD TRACK/SECTORA 





nacineeesanaesopnittitaiaesaseteaes —+ 


M14 
CZRIJDDO, RPO4/5/6 MLT-DR LGC MACY11 30A(1052) O3-JUL=79 10:41 PAGE 183 


CZRIDD.P11 06-JUN-79 08:32 ERROR MESSAGES SEQ 0181 
9508 050504 052103 051117 000 
9509 050511 105 051122 051117 LINM3: .ASCIZ /ERROR AT C/ 
9510 050516 040440 020124 000103 
9511 050524 052040 000 T: -ASCIZ 


/v/ 

9512 050527 120 042522 042523 LINN3: .ASCIZ /PRESENT ADDR = C/ 
9513 050534 052116 040440 042104 

9514 050542 020122 020075 000105 

9515 050550 051440 000 $: -ASCIZ 
9516 050553 040 020040 051120 LINP3: .ASCIZ 
9517 050560 053105 040440 042104 

9518 050566 020122 020075 000103 

9519 050574 052123 051101 020124 LINS3: .ASCIZ /START CYL = / 
9520 050602 054503 020114 020075 


9522 050611 040 042440 042116 LINENS: .ASCIZ / END CYL = / 
9523 050616 041440 046131 036440 


9525 050626 020040 041501 052524 LINA3. .ASCIZ / ACTUAL CYL = / 
9526 050634 046101 041440 046131 


9528 050646 0200460 051124 020113 LINTS: .ASCIZ / TRK = / 
9530 050657 040 050122 040503 LINCA3: .ASCIZ / RFCA 

9531 050664 036440 000040 

9532 050670 050122 040504 036440 LINDA3: .ASCIZ /RPDA = / 

9534 050700 950122 040502 036440 LINB3: .ASCIZ /RPBA = / 
9536 050710 020040 050122 041527 LINW3: .ASCIZ / RPWC = / 
9537 050716 036440 000040 

9538 050722 052123 051101 020124 LINST3: .ASCIZ /START TRK = / 
9539 050730 wile 020113 020075 


9541 050737 123 040524 052122 LINSS3: .ASCIZ /START SEC = / 
9542 050744 051440 041505 036440 


9544 050754 052502 043106 051105 LINM4: .ASCIZ /BUFFER ADDR = / 
9545 050762 040440 me 020122 


9547 050773 040 051440 - LINS4: .ASCIZ / SIZE = / 
9549 051005 40 040440 052103 LINX4: .ASCIZ / ACTUAL NMBR WRDS XFRD = / 


/ S/ 
/ PREV ADDR = C/ 


9552 051026 020123 043130 042122 


9554 051040 047507 042117 042040 LINDS: .ASCIZ /GOOD DATA = / 
9555 051046 vig 020101 020075 


9557 951055 040 041040 042101 LINBS: .ASCIZ / BAD DATA = / 
9558 051062 042040 052101 020101 


9560 051073 040 051440 041505 LINPS: .ASCIZ / SECT POS = / 
9561 051100 020124 047520 020123 


00 
9563 051111 110 0460505 042504 LINSS: .ASCIZ /HEADER FROM ERROR SECTOR = / 





Oo 

uw 

Ww 

Ww 

Oo 

uw 

S 

o 

“ 

o 

So 

o 

o 

o 

= 

Oo 

" 

~s 
_— 






















CZRJDOD.P11 


SECS wn 
ONE OOF ORMNONE SG 


Nn—-OoONN 


051554 





020122 


051122 


CZRJDDO, RPO4/5/6 MLT-DR LGC 
06-JUN-79 08:32 


051106 


020104 
052105 


000040 
042504 


052117 
042505 


053440 
043130 


053440 
042522 





MACY11 50A(1052) 


046517 
051117 
047524 


000 
030503 
031103 


051117 
041505 
951122 
046102 


047524 
042101 
042522 
000040 
041505 
047117 


044522 


051117 
041101 
052106 


040524 
050123 
051122 


051522 


046101 
051513 


046101 
047454 
051105 

060 
051122 

009 
042122 
035122 


042440 
000123 


ERROR MESSAGE 


LINEPS: 
LINEOS: 
LINB6: 


LINC6: 


LING6: 


LINR6: 


LINUO6: 


LIN7M: 


LIN7O: 


LIN7P: 


LIN7S: 


LIN7T: 


LIN7X: 


LIN7ZR: 


LIN8M: 


LINOB: 


eASCIZ 
»ASCIZ 
eASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


eASCI2 


eASCI2 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


N 14 
4 Sgt 10:41 PAGE 184 


/RPECI = / 
/ RPEC2 = / 
/SECTOR IS ECC CORRECTABLE / 


/SECTOR READ CORRECTLY / 


/CORRECTED ON / 


/ RETRIES/ 


/UNCORRECTABLE AFTER / 


/ TOTAL MISPOS ERR = / 


/ORDERS:/ 


/ TOTAL SEEKS = / 


/ TOTAL SKI,OCYL ERR = / 


/ ERRORS:/ 


/ WRDS XFR:/ 


/ WRDS READ:/ 


/DIFFERENT ERROR DURING RETRY/ 


/DATA COMPARISON ERRORS/ 





8 15 JaneSparairs | [ 
CZRIDDO, RPOG/S/6 MLT-DR LGC, MACTIT SOA(1052)  O3-JUL-79 10:41 PAGE 185 
CZRIDD.P11 — 06=JUN-79 08: 32 ERROR MESSAGES sea al | 


9620 051562 020040 020040 ac yet? LINSH: .ASCII / G00D BAD/<CR><LF> 
9621 051570 020040 043440 047517 
9622 051576 020104 020040 041040 


9624 051610 047514 020103 020040 -ASCIZ = /LOC DATA DATA/<CR><LF> 







9628 051640 047514 020103 0200460 LIN9I: .ASCIZ /LOC DATA/<CR><LF> 
9629 051646 020040 042040 052101 


9631 051660 047524 040524 020114 LIN9SE: .ASCIZ /TOTAL COMPARE ERRORS = / 


! 

9632 051666 047503 050115 051101 
000 

} 


LOL PEPE BR LE LE LALO LON LO LO 


9635 051710 044124 020105 040504 LIN9G: .ASCIZ /THE DATA COMPARED OK/<CR><LF> 


LINIOA: .ASCIZ /ERROR BURST BEGINS AT WORD / 


000 
9644 051773 040 047111 0420460 LINIOB: .ASCIZ / IN DATA FIELD OF ERROR SECTOR/<CR><LF > 


oe ae ew ee 


9647 052014 042440 051122 051117 
9648 052022 051440 041505 047524 


9650 052034 051105 047522 020122 LINIOC: .ASCI] /ERROR WAS NOT IN THE DATA READ = /<CR><LF> 
9651 052042 040527 020123 047516 


9656 052077 105 041503 041440 -ASCIZ /ECC CORRECTION CAN'T BE PERFORMED/ 


0 
041503 041440 LINIOH: .ASCI1] /ECC CORRECTION RESULTS/<CR><LF~ 


052114 006523 
042104 020122 -ASCI1Z /ADDR BAD CORRECTED /<CR><LF> 


— ee ee ee ee CR FR FE FS 2 2 2 28 28 28 28 8 23 8 ee 


40 
: 
O05 LINIIH: .ASCIZ /CONTENTS OF ERROR SECTOR (REPORTED ABOVE) /<CR><L? > 
06 
22 
17 


0 
047522 mee 


9675 052250 042 052103 05 


a —— > OO gy r 


C 15 
CZRIDDO, RPOG/5S/6 MLT-DR LGC MACY11 30A(1052) O3-JUL=79 10:41 PAGE 186 
CZRJDD.P11 06-JUN-79 08:32 ERROR MESSAGES SEQ 0184 


024040 042522 047520 
052122 042105 040440 
047502 042526 006451 


051104 020040 -ASCIZ /ADDR DATA/<CR><LF> 
020040 sting + 040524 


040 040 LINGSP: .ASCI1] / 

040 LINSP: .ASCI1 / / 
000040 LINSPO: .ASCIZ / / 
9687 -SBTTL TELETYPE MESSAGES 


047122 USE:  .ASCIZ <CR><LF>/WARNING: PROGRAMMABLE DRIVES MAY BE USED/<CR><cF> 
| 
| 
| 
! 
| 
I 





/ 


oO 

o 

oo 

oO 
ooooo°c;”[ncoco 
PAAAAAMNAFUTIT 
MMP PPP re rnrre 
WIN AAW Pore re 
MmMN——OOnNouw 
Fin —FOnonFfo 

o 

- 

Nm 

a 

oOo 

_ 


042105 


00 
9697 052403 040 051120 043517 NOUSE: .ASCIZ / PROGRAMMABLE-DRIVE WILL NOT BE USED/ 
9698 052410 040522 046515 041101 
9699 052416 042514 042055 044522 
9700 052424 042526 053440 046111 
9701 052432 020114 047516 020124 
9702 052440 042502 052440 042523 


9704 052450 051104 053111 000105 UNTMSG: .ASCIZ /DRIVE/ 
9705 052456 047440 043106 044514 UNTOFF: .ASCIZ / OFFLINE/ 
9706 052464 042516 000 
9707 052467 C40 047117 044514 UNTON: .ASCIZ / ONLINE/ 
9708 052474 042516 000 
9709 05247? 040 047516 020124 UNTNOT: .ASCIZ / NOT BEING TESTED/ 
9710 052504 042502 047111 020107 

9711 052512 stag 052123 042105 


9713 052521 040 046101 042522 UNTASN: .ASCIZ 
9714 052526 042101 020131 042502 
9715 052534 047111 020107 042524 


000 
9717 052547 040 047516 020124 NOTRP: .ASCIZ 
9718 052554 047101 051040 030120 
9719 052562 027464 027465 000066 
9720 052570 047040 052117 050040 NOTPRS: .ASCIZ 
9721 052576 ving 042523 052116 


9723 052605 040 047516 020124 NOTAVL: .ASCIZ 
9724 052612 053101 044501 040514 


9726 052624 052440 051516 043101 NOTSAF: .ASCI2 UNSAFE/ 


9728 052634 047125 052111 051440 SYSTAT: .ASCIZ /UNIT STATUS: /<CR><LF><LF > 
9729 052642 040524 052524 035123 


9731 052654 050122 032060 000 RPO4B: .ASCIZ /RPO4/ 


ALREADY BEING TESTED/ 


a 


NOT AN RP04/5/6a 


@ 


™ 


NOT PRESENT/ 


as 


NOT AVAILABLE / 


~s 



























CZRJDD.P11 


052661 


053322 


CZRIDDO, RPOG/5/6 MLT-DR LGC 
06-JUN-79 08:32 


030120 


042516 
040506 


052040 
051104 
042504 
047107 


025012 


020116 


042116 


000065 

000 
042526 
047506 


042503 
040515 


040520 


051511 
042510 


005015 
040524 
042440 
044523 
051122 


043117 


MACY11 30A(1052) 


PDONE : 
DROPNG: 


ENDPAS: 
ENDTST: 


DEASSG: 


DRNUM: 


ASGND: 
NEDCLK: 


PERIOD: . 


QUES: 





D 15 
03-JUL-79 10:41 PAGE 187 
TELETYPE MESSAGES 


-ASCIZ 
eASCIZ 
-ASCII 


ASCII 


eASCIZ 


eASCIZ 
-ASCIZ 


~ASCIZ 
eASCIZ 


eASCIZ 


~ASCIZ 


-ASCIZ 
eASCIZ 


/RPOS/ 
/RP06/ 
/DRIVE PERFORMANCE SUMMARY/<CR><LF> 


/JDRV PASS ORDERS SEEKS WRDS XFER WRDS READ / 


/SOFT HARD SKI MISP OTHER/<CR><LF> 


/DONE/<CR><LF ><LF> 
<07>/?7FATAL OR EXCESSIVE ERRORS/ 


7END OF PASS/ 
<CR><LF>/END OF TEST/ 


<CR><LF>/DRIVE DEASSIGNED/ 
<CRO<KLF>/eeeeneeeee DRIVE &/ 


/ STARTED/<CR><LF> 
<CR><LF>/? "L* OR "PRP" CLOCK REQUIRED ON SYSTEM/<CR><LF> 


fat 
/?/ 
/INVALID COMMAND /<CR><LF> 





SEQ 0185 


LL nnn ete 


; 
feeeteeemengeees 








CZRIDDO 
CZRIDD. 


, RPOS/S 
Pi) 0 


053736 


/6 MLT-DR LGC 


6-JUN-7 


051504 


9 08:32 


042412 


027104 
047117 
047111 


005015 


MACY11 30A(1052) 


051104 
020122 


053122 


052101 


051105 
044440 


005015 
006505 
040526 


ENTCOM: 


ENTDRV: 


ENTLMT: 


ENTADR: 


COLON: 


DATEIS: 


IDIS: 


HEDLIN: 


NONE : 


BADENT: 


BUSY: 


INTDON: 


-EVEN 


— 15 
03-JUL-79 10:41 PAGE 188 
TELETYPE MESSAGES 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 
eASCIZ 
-ASCIZ 
eASCIZ 
eASCIZ 
eASCIZ 


eASCIZ 


ASCII 


eASCIZ 


<CR><LF>/ENTER COMMANDS: /<CR><LF> 
7ENTER 1.0. FOR DRv #/ 


<CR><LF>/ENTER ADDRESS LIMITS FOR DRV &@/ 


@ENTER BAD TRK/SEC ADRS FOR DRV #@ 


Sf 
<CR><LF>/DATE: / 
<CR><LF>POPERATOR 1.D.: / 


<CRO<LF><LF>/DRV DRV 1.D./<CR><LF> 
/NONE/<CR><LF> 

/? INVALID ENTRY/<CR><LF> 

/SYSTEM BUSY.../<CR><LFD> 


<CR><LF>/PROGRAM INITIALIZATION COMPLETE,/ 


<CR><LF>/TYPE A ‘CONTROL C* TO ENTER COMMANDS/<CR><LF><L# > 


;PARAMETER ENTRY TABLE 


SEQ 0186 


ee ed 


CZRJDDO, RPOS/5/6 MLT=-DR LGC 
CZRJDD.P11 


053744 


054040 


054042 
054050 
054056 
054064 
054066 


054072 
054100 
054106 
054107 
054114 
054116 
054124 


054244 


054246 
054250 
054252 


06-JUN-79 


054072 


000000 


047105 
040520 
042524 
000040 
027440 


040515 
047111 


6 
000124 


054266 
054334 
054402 


08:32 
0000 


NO 
~N~O 


000001 


042524 
040522 
051522 
000040 


042130 
051124 


050115 
041530 
047111 
052130 
047111 
051530 
047111 
046522 
051503 
052101 
052125 


042504 
041523 


052117 


MACY11 30A(1052) 
TELETYPE MESSAGES 


PARLST: 


001404 
0 


001426 


020122 
042515 
020072 


000114 
046126 


046514 
046131 
054503 
045522 
051124 
041505 
042523 
052101 
046105 
047511 
041517 


000124 
052116 


051120 


ASKPAR: 


SLASH: 


PAR1: 
PAR2: 


PARS: 
PAR4: 
PARS: 
PAR6: 
PAR7: 
PARB: 
PARY: 
PARI0: 
PARI1: 
PARI4: 
PARIS: 


PAR16: 
PARI9: 


PAR2O: 


03-JUL-79 


. WORD 
« WORD 
«WORD 
- WORD 
. WORD 
«WORD 
» WORD 
«WORD 
«WORD 
«WORD 
«WORD 


eASCIZ 


eASCIZ 


eASCIZ 
eASCIZ 


-ASCIZ 
eASCIZ 
~ASCIZ 
-ASCIZ 
eASCIZ 
eASCIZ 
«ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
eASCIZ 


-ASCIZ 
eASCIZ 


eASCI2 


~EVEN 


F 15 
10:41 PAGE 189 


PAR1,0,MAXDL 
PAR2,-1,1NTRVL 
PAR19,-1,PASCNT 
PAR3,-1,CMPLMT 
PAR11,1,WCSEL 
PAR14,7,RATIO 
PAR16,1,ENDET 
PAR10,1,FORMAT 
PAR15,1,AUTOCK 
PAR20,1,NOTPRT 
0 ; TABLE TERMINATOR 


VENTER PARAMETERS: / 


a/a 


/MAXDL/ 
/INTRVL/ 


/CMPLMT/ 
/MAXCYL/ 
/MINCYL/ 
/MAXTRK/ 
/MINTRK/ 
/MAXSEC/ 
/MINSEC/ 
/FORMAT/ 
/WCSEL/ 

/RATIO/ 

/AUTOCK/ 


7ENDET/ 
/PASCNT/ 


/NOTPRT/ 


;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 


TABLE: 


«WORD 
. WORD 
«WORD 


TABLEO 
TABLE | PARAMETER TABLE FOR DRIVE 
TABLE 2 ;PARAMETER TABLE FOR DRIVE 


;PARAMETER TABLE FOR DRIVE 0 


1 
é 


SEQ 0187 


— | 


6 15 
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CZRIDD.P11 06-JUN-79 08:32 TELETYPE MESSAGES SEQ 0188 
9900 054254 054450 ~ WORD TABLES :PARAMETER TABLE FOR DRIVE 3 
9901 054256 054516 WORD TABLES ;PARAMETER TABLE FOR ORIVE 4 
9902 054260 054564 ~WORD TABLES ;PARAMETER TABLE FOR DRIVE 5 
9903 054262 054632 -WORD TABLE6 :PARAMETER TABLE FOR DRIVE 6 
coos 054264 054700 WORD TABLE? ;PARAMETER TABLE FOR DRIVE 7 
a ;PARAMETER TABLE FOR ADDRESS LIMITS 
9908 054266 054125 000000 042146 TABLEO: .WORD PARS,O,MINCYL*DRIVEO 
9909 054274 054116 000000 042144 ~WORD PARG,O,MAXCYL*DRIVEO 
9910 054302 054143 000022 042152 ~WORD PAR7,18.,MINTRK*DRIVEO 
9911 054310 054134 000022 042150 -WORD PAR6,18.,MAXTRK+DRIVEO 
9912 054316 054161 000025 042156 ~WORD PARI,21.,MINSEC*DRIVEO 
9913 054324 054152 000025 042154 «WORD PAR8B,21.,MAXSEC*+DRIVEO,0 
bad 054332 000000 
9916 054334 054125 000000 042452 TABLE]: .WORD PARS,O,MINCYL*DRIVE1 
9917 054342 054116 000000 042450 -WORD PARG,O,MAXCYL*+DRIVE1 
9918 054350 054143 000022 042456 «WORD PAR7,18.,MINTRK*+DRIVE1 
9919 054356 054134 0900022 042454 «WORD PAR6,18.,MAXTRK*+DRIVE1 
9920 054364 054161 000025 042462 ~WORD PARI,21.,MINSEC*DRIVE1 
9921 054372 054152 000025 042460 -WORD PAR8,21.,MAXSEC+DRIVE1,0 
ease 054400 000000 
9924 054402 054125 000000 042756 TABLE2: .WORD PARS,O,MINCYL*DRIVE2 
9925 054410 054116 000000 042754 -WORD PAR4,O,MAXCYL*+DRIVE2 
9926 054416 054143 000022 042762 -WORD PAR7,18.,MINTRK#DRIVE2 
9927 054424 054134 000022 042760 «WORD PAR6,18.,MAXTRK+DRIVE2 
9928 054432 054161 000025 042766 .WORD PAR9,21.,MINSEC*DRIVE2 
9929 054440 054152 000025 042764 -WORD PAR8,21.,MAXSEC+DRIVE2,0 
eit 054446 000000 
9932 054450 054125 000000 043262 TABLE3: .WORD PARS,O,MINCYL*DRIVE3 
9933 054456 054116 000000 043260 ~WORD PAR4,O,MAXCYL*+DRIVE3S 
9934 054466 054143 000022 043266 .WORD PAR7,18.,MINTRK*DRIVES 
9935 054472 054134 000022 043264 -WORD PAR6,18.,MAXTRK*DRIVES 
9936 054500 054161 000025 043272 ~WORD PAR9O,21.,MINSEC#CRIVES 
9937 054506 054152 000025 043270 ~WORD PAR8,21.,MAXSEC+DRIVE3,0 
Co 054514 000000 
9940 054516 054125 O00000 043566 TABLES: .WORD PARS,O,MINCYL*DRIVES 
9941 054524 054116 000000 043564 -WORD PAR4,0,MAXCYL4*DRIVES 
9942 054532 054143 000022 043572 -WORD PAR7,18.,MINTRK*DRIVES 
9943 054540 054134 000022 043570 ~WORD PAR6,18.,MAXTRK+DRIVES 
9944 054546 054161 090025 043576 ~ WORD PAR9,21.,MINSEC*DRIVES 
9945 054554 054152 000025 043574 ~WORD PARB,21.,MAXSEC*DRIVES,0O 
ay 054562 000000 

4 
9948 054564 054125 000000 044072 TABLES: .WORD PARS,O,MINCYL*DRIVES 
9946S 054572 054116 000000 044070 «WORD PARG,O,MAXCYL*+DRIVES 
9950 054600 054143 000022 0446076 ~WORD PAR7,18.,MINTRK*DORIVES 
9951 054606 054134 000022 044074 ~WORD PAR6,18.,MAXTRK+DRIVES 
9952 054614 054161 000025 044102 ~ WORD PAR9,21.,MINSEC*DRIVES 
9953 054622 054152 000025 044100 ~WORD PAR8&,21.,MAXSEC*DRIVES,O 


9954 054630 000000 





CZRJ 


DD.P 


054632 
054640 


054676 


054700 
054706 


054744 


054746 
054754 


054756 


055066 


0550706 
055076 
055104 


CZRJDD0, Rad MLT-DR LGC 
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054125 
054116 


000000 


054125 
054116 
054143 
054134 
054161 
054152 
000000 


000000 
000000 
054756 


020072 


000000 
000000 


000025 


000000 


000025 


000000 


055070 


001220 
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044376 
044374 
044402 
044400 
044406 
044404 


044702 
044700 
044706 
044704 
044712 
044710 


000000 


042524 
042524 


TELETYPE MESSAGES 


TABLE6: .WORD PARS,O,MINCYL*DRIVE6 
-WORD PAR4,0,MAXCYL*DRIVE6 
-WORD PAR7,18. ,MINTRK*DRIVE6 
-WORD PAR6,18.,MAXTRK*+DRIVE6 
-WORD PAR9,21.,MINSEC*DRIVE6 
-WORD PAR8,21.,MAXSEC*+DRIVE6,0 


TABLE7: .WORD PARS,O,MINCYL*DRIVE7 
-WORD PAR4,O,MAXCYL*DRIVE7 
«WORD PAR7,18.,MINTRK*DRIVE?7 
-WORD PAR6,18.,MAXTRK*DRIVE7 
-WORD PAR9,21.,.MINSEC*DRIVE7 
«WORD = PAR8,21. ,MAXSEC*DRIVE7,0 


CYLDER: .WwORD 0,0,0,0 ;HEADER BUFFER FOR “‘READHD' ROUTINE 


ENDPGM = . LAST LOCATION OF PROG * 2 


Lp eeeeerererererereeneeeeneerereneeerenerineneeenteeeeeereeereree 


sROUTINE TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR 
SCALA 2 

; JSR PC ,OPRDAT 

; RETURN 


:NOTE : THIS ROUTINE IS ENTERED ONLY AT INITIAL START 


OPRDAT: TYPE »ENTDAT > ENTER DATE’ 

RDLIN ;READ THE ENTRY 
MOV (SP)+,R5 ;PuT ee ENTRY ADDRESS INTO RS 
MOVB (R5)+,DATE SSTORE THE DATE 
MOVB (R5)+,DATE+1 ;STORE THE DATE 
MOVB (R5)+,DATE+2 ;STORE THE DATE 
MOVB (R5)+,DATE*3 ;STORE THE DATE 
MOVB (R5)*,DATE+4 ; STORE THE DATE 
MOVB (R5)+,DATE*5 > STORE THE DATE 
MOVB (R5)+,DATE+6 > STORE se DATE 
MOVB (R5)+,DATE+7 ;STORE THE DATE 
TYPE -ENTID ; "ENTER OPERATOR 1|.D.' 
RDLIN ;READ THE ENTRY 
MOV (SP)+,R5 TENTRY ADDRESS 
MOVB (R5)+,OPERID ;STORE THE 1.D. 
MOVB (R5)+,OPERID*i ;STORE THE 1.D 
MOVB (R5)+*,OPERID*2 ;STORE THE 1.D. 
MOVB (R5)+,OPERID*3 ;STORE THE 1.0. 
MOVB (R5)*,OPERID*4 ;STORE THE I.D. 
MOVB (R5)*,OPERID*S5 ;STORE THE 1.D 
RTS PC RETURN 


ENTDAT: .ASCIZ <CR><LF>/ENTER DATE: / 





SEQ 0189” 
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CZRJDD.P11 06-JUN-79 08:32 TELETYPE MESSAGES 
10012 055107 105 052116 051105 ENTID: .ASCIZ /ENTER OPERATOR 1.0.: / 
10013 055114 047440 042520 040522 
10014 055122 047524 020122 027111 
10015 055130 027104 020072 000 
10016 055136 EVEN 
10017 
10018 -SBTTL ROUTINE TO SIZE MEMORY 
10019 
10020 pp eteeeeeeeerereeeererereeterenererrereeeRterKeeeeTATeeAe eee TEES 
10021 s*CALL: 
10022 JSR PC,$SIZE 
10023 RETUR 
1oo5s  eSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
10026 055136 010046 $SIZE: MOV RO,-(SP) >;SAVE RO ON THE STACK 
10027 055140 010146 MOV R1,-(SP) 37 SAVE R1 ON THE STACK 
10028 055142 013746 000004 MOV QMERRVEC,-(SP) ;;SAVE PRESENT ERROR VECTOR PS & PC 
10029 055146 013746 000006 MOV Q#ERRVEC+2,-(SP) 
10030 055152 010600 MOV SP,RO sSAVE THE STACK POINTER 
10031 SET ~ Rina, PS TO THE PRESEN PS 
10032 055154 104400 ; PUSH OLD PSw AND PC ON STACK 
10033 055156 012637 000006 oy (SP)+, QWERRVEC +2. sSAVE THE PSwW IN Q#ERRVEC #2 
10034 055162 012737 055202 000004 MOV #2$, aWERRVEC :SET FOR TIMEOUT 
10035 055170 012701 020000 MOV #20000,R1 TP IRST ADDRESS 
10036 055174 005711 1$: TST (R1) 3: TEST THIS ADDRESS 
10037 055176 005721 TST (R1)¢4 ;;STEP TO NEXT ADDRESS 
10038 055200 000775 KR 1$ >: TRY ANOTHER 
10039 055202 162701 000002 2$: SUB #2,R1 > DROP BACK 
10040 055206 010006 MOV RO,SP : +RESTORE THE STACK 
10041 055210 012637 000006 MOV (SP)+, Q#ERRVEC+2 ;;RESTORE ERROR VECTOR 
10042 055214 012637 000004 MOV (SP)+ aMERRVEC 
10043 055220 010137 055232 MOV R1,$LSTAD >:LAST ADDRESS 
10044 055224 012601 MOV (SP)+,R1 > RESTORE R1 
10045 055226 012600 MOV (SP)+,R0 :;RESTORE RO 
10046 055230 000207 RTS PC 
yao 055232 000000 $LSTAD: .WORD 0 ::CONTAINS THE LAST ADDRESS 
1004 
10049 .SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
10050 :THIS ROUTINE 1S USED TO INSURE THE BUS ADDRESS 
10051 sOF THE RH11 IS SETUP FOR THE PROPER ADDRESS. 
10052 :1T WILL ALSO READ THE ADDRESS FROM THE TTY IF 
10053 ;REQUIRED. 
10054 sNOTE: THIS ROUTINE DESTROYS RO-R4 
10055 CALL 
10056 ‘ 
10057 : JSR PC ,BUSADR 
10058 . RETURN 
10059 
10060 055234 177700 HIAD: .WORD 177700 
10061 955236 000776 HIVEC: .WORD 776 
oe 055240 000000 BOUND: .WORD 0 
6 
10064 055242 005737 001260 BUSADR: TST CHGADR > INPUT FROM TTY REQUESTED? 
10065 055246 001456 BEQ 7$ >NO--BRANCH 
10066 055250 005037 001260 CLR CHGADR sYES=-CLEAR THE REQUEST FLAG 
10067 055254 012700 0601170 1$: MOV ASRPADR,RO FIRST ADDRESS 
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CTRID D.P11 06-JUN-79 08:32 BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RHI11 SEQ 0191 
10068 055260 104401 055466 TYPE »MRPCS) 7"RPCS1="" 

10069 055264 012046 MOV (RO)+,=-(SP) ;PRESENT RPCS1 ADDRESS 

10070 055266 104402 TYPOC s TYPE IT 

10071 055270 104401 052323 TYPE »LINSP 72 SPACES 

10072 055274 104411 RDLIN ;GET THE ENTRY 

10073 055276 012601 MOV (SP)+#,R1 s;ADDRESS OF ASCII TEXT 

10074 055300 013737 055234 055240 MOV #1AD,BOUND 7SET THE ADDRESS MAX 

10075 055306 004537 055510 JSR R5,CK.NUM ; CHECK THE NUMBER 

10076 055312 055332 3$ s CARRIAGE RETURN ONLY ENTERED 
10077 055314 055404 7$ :PERIOD ONLY ENTERED 

10078 055316 055254 1$ s ILLEGAL INPUT 

10079 055220 055326 e$ : TERMINATED WITH ; CARRIAGE RETURN 
10080 055322 055254 1$ sTERMINATED WITH A“, 

10081 055324 055400 4$ : TERMINATED WITH A ‘'."’ 

10082 055326 010260 177776 2$: MOV R2,-2(RO) > SAVE NEW RPCS1 

10083 055332 104401 055477 3$: TYPE »MRHVEC 7‘RHVEC="" 

10084 055336 012046 MOV (RO)+,-(SP) ;PRESENT RH11 VECTOR ADDRESS ON THE STACK 
10085 055340 104402 TYPOC sTYPE IT 

10086 055342 104401 052323 TYPE »LINSP 72 SPACES 

10087 055346 104411 RDLIN ;READ THE ENTRY 

10088 055350 012601 MOV (SP)+,R1 sASCII TEXT ADDRESS 

10089 055352 013737 055236 955240 MOV HIVEC ,BOUND ;SET THE VECTOR-MAX 

10090 055360 004537 055510 JSR R5,CK.NUM ;CHECK THE NUMBER 

10091 055364 055404 7$ sCARRIAGE RETURN ONLY ENTERED 
10092 055366 055404 7$ ; PERIOD ONLY ENTERED 

10093 055370 055332 3$ ; ILLEGAL INPUT 

10094 055372 055400 4$ : TERMINATED WITH A CARRIAGE RETURN 
10095 055374 055332 3% sTERMINATED WITH A ‘ 

10096 055376 055400 4$ : TERMINATED WITH A on’ ee 

10097 055400 010260 177776 4$: MOV R2,-2(R0) : SAVE INPUT 

10098 055404 013701 000004 7$: MOV ERRVEC,R1 sSAVE THE ERROR VECTOR 

10099 055410 012737 055444 000004 MOV #8$,ERRVEC :SETUP FOR TRAP 

10100 055416 005777 123546 TST aSRFADR :CHECK FOR RH11 

10101 055422 010137 000004 MOV R1,ERRVEC sRESTORE ERROR VECTOR 

10102 055426 012700 001170 MOV #SRPADR,RO sFIRST ADDRESS OF NEW PARAMETERS 
10103 055432 012701 033430 MOV #RPADR,RI sFIRST ADDRESS OF WHERE TO PUT THEM 
10104 055436 012021 MOV (RO)+,(R1)¢ ;BUS ADDRESS 

10105 055440 012021 MOV (RO)+,(R1)¢ sVECTOR ADDRESS 

10106 055442 000297 RTS PC RETURN 

10107 055444 010137 000004 8$: MOV R1,ERRVEC sRESTORE ERROR VECTOR 

10108 055450 022626 CMP (SP)+,(SP)¢ sCLEAN OFF THE STACK 

10109 055452 104006 ERROR 6 sREPORT THE ERROR 

10110 055454 005737 000042 TST a#42 :1S THERE A MONiTOR? 

10111 055460 001675 BEQ 1$ sNO--GO ASK FOR ADDRESS 

a bbe 055462 000137 005432 JMP $GE142 ;GO TO END OF PROGRAM 

101 

10114 055466 050122 051503 020061 MRPCS1: .ASCIZ @RPCS1 = a 

10115 055474 020075 000 

10116 055477 122 053110 041505 MRHVEC: .ASCIZ @RHVEC = a 

4p 055504 036440 000040 

10119 ~SBITL CK.NUM = CHECK NUMBER (OCTAL) 

10120 sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 

10121 sAND FORMS AN OCTAL NUMBER IN R2 

10122 CALL: 

10123 : MOV #ADR,RI sADDRESS OF ASCIZ2 STRING 


i 
eee ee 
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ooo 
pay 
uw 
ww 


055650 


010446 


000205 


027656 


000004 


027656 


055240 


MACY11 pw 
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K.NUM = CHECK NUMBER (OCTAL) 


CK.NUM: 


1$: 


MOV 


JSR 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


#NUM ,R2 


R5,CK.NUM 
A 


R3.-(SP) 


R5,CK.CHR 


R2,R5 
R5,CK.CHR 


(R1) 
8$ 
(R4)+ 
(R4)+ 


(R4)+ 
BOUND ,R3 


194 


;MAX SIZE OF INPUT NUMBER 
;GO FORM THE NUMBER 


;“"CR'’ ONLY ENTERED -- R2 = 0 
;"PERIOD'’ ONLY ENTERED -- R2 = 


0 
7 ILLEGAL CHARACTER IN aes STRING 


SCR" ENTERED <= R2 = 
7'"COMMA'' == R2 = NUMBER 
PERIOD’ == R2 = NUMBER 


SAVE R4 

sSAVE R3 

s SAVE R2 

;RETURN POINTER 
;START NUMBER AT ZERO 
;STORE RESULT 

sCHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
;CARRIAGE RETURN 


’ 
oe oe 
. 


DIGIT 0-7 
;DIGIT 8-9 
s INCREMENT RETURN PAST ‘'CR'’ AND ‘PERIOD’ ONLY RETURNS 
;FOR THE OCTAL NUMBER IN R3 
;DON'T LET IT GET TO BIG 


; CHECK ONE CHARACTER 

; ILLEGAL CHARACTER 

;CARRIAGE RETURN 

sDIGIT 0-7 

sDIGIT 8-9 

:DOES A “'CR'' FOLLOW THE ‘‘PERIOD"’ 
;BR IF NOT 

> INCREMENT THE RETURN 

> INCREMENT THE RETURN INDEX 

> INCREMENT THE RETURN INDEX 

; INPUT VALUE TOO LARGE? 

:BR IF IT IS 

;BR IF NOT 

s INCREMENT THE RETURN ADDRESS 
: INCREMENT THE RETURN ADDRESS 
sSETUP FOR PROPER RETURN 
sLOAD ENTERED VALUE 

sCLEAN OFF THE STACK 

sRESTORE R3 


RESTORE R4 
:GET RETURN ADDRESS 
RETURN 


SEQ 0192 
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CZRJDD.P11 06-JUN-79 08:32 K.NUM = CHECK NUMBER (OCTAL) SEQ 0193 
10180 055652 005015 055103 045122 TITLE: ASCII <CR><LF>/CZRID=D/<CR><LED 
10181 055660 026504 006504 012 
10182 055665 115 052114 042055 eASCIZ = GMLT<-DR LGCA<CR><LF><LF> 
10183 055672 020122 043514 006503 / 
10184 055700 005012 
190185 055703 015 052012 020117 LOADRV: .ASCII] <CR><LF>/TO TEST DRIVE 0, REPLACE THE "XXDP*° PACK ON DRIve 0/<CR><LF> 
10186 055710 042524 052123 042040 
10187 055716 044522 042526 030040 


10188 055724 020054 042522 046120 
10189 055732 041501 020105 044124 
10190 055740 020105 054047 042130 
10191 055746 023520 050040 041501 
10192 055754 020113 047117 042040 
10193 055762 044522 042526 030040 


10195 055772 044527 044124 040440 eASCII /WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CR><LF> 
10196 056000 047516 044124 051105 
10197 056006 050040 041501 026113 
10198 056014 041440 042514 051101 
10199 056022 0460440 046505 051117 
10200 056030 020131 047514 040503 
10201 056036 044524 047117 032040 


10203 056050 047101 020104 042522 eASCIZ /AND RESTART THE PROGRAM/<CR><LF> 


10206 056072 043517 040522 006515 
10208 056102 005015 054523 taht NOLOAD: .ASCIZ <CR><LF>/SYSTEM HAS 16K MEMORY, ‘XXDP* LOADER WILL BE OVERWRITTEN/<CR><L 


056170 052124 047105 005015 
056176 000 


000001 END 


CZRJDDO, RPO4/5/6 MLT-DR LGC 


CZRJDD.P11 

ABNRAL 026622 
ABS = 000200 
ACK = 000123 
ACL == 000040 
ACTDRV 033346 
ACTSTR 033347 
ACU = 100000 
AOE = 001000 
ASGND 053210 
ASGNI 024302 
ASGN2 024362 
ASGNS 024434 
ASGNG 024552 
ASGNS 024562 
ASGN6 024570 
ASGN7? 924600 
ASKPAR 054042 
ASNERR 026514 
ASNLST 001462 
ASNMSG 026534 
ASSIGN 024274 
ATA = 100000 
ATABIT 033416 
ATIN 001244 
ATO == 000001 
AT1 == 000002 
AT2 = 000004 
ATS == 000010 
ATG = 000020 
ATS == 000040 
A16 == 000100 
AT7 == 000290 
AUTOCK 001424 
AVAIL 001530 
Alé = 000400 
Al7 == 001000 
BADENT 0553566 
BADSEC 001264 
BA] = 000010 
BEGCOD 001434 
BEGPAT 001432 
BEGSIZ 001436 
BI1T0 = 000001 
B1100 = 000001 
B1101 = 000002 
B1T02 = 000004 
B1103 = 000010 
B1104 = 000020 
B1105 = 000040 
B1106 = 000100 
B1107 = 000200 
B1108 = 000400 
B!11T09 = 001000 


06-JUN-79 08:32 
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63654 


21898 
7925* 
8552* 
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CROSS REFERENCE TABLE -=- USER SYMBOLS 


7976* 
8567+ 


5926m 
5938a 
5959m 


6020 
3313 


5965* 
6068 


5916 
8472 
9472 


4921 
3307 


9820# 
5091* 


8289+ 


5962 


63284 
5611 


5970+ 
6074 


5938 
8491 
9474 


8298* 


5618 
59728 


5989 
8499 


9852 
3314 


8550 


5916 
59748 


5991 
8518 


3324 


5751 


6136 
4625 


7860 


8446 
3797 


7890 


5938 
6001* 


6013 
8626 


3326 


5763 


4853 
8431 


8600 
4617 


8167 


5989 
6019* 


6023 


3368 


5775 


6139 
8747 


5333 
\ 9310 


5991* 
63368 


6042 


3369 


5787 


7968 


5905 
8431 


6013 


6347 


3415 


8215 


6758 
8446 


6023 


6429 


7890 
8466 


6042 


76964 


7959 
8495 


SEQ 0194 


6547¢ 


7881 


8033 
8779 





a ty 
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CZRJDD.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0195 
B1T1 = 000002 19438 
B111G = 002000 19248 3498 3621 3629 6885 8217 t 
B11T11 = 004000 19234 3496 3624 7833 7992 8010 8186 8519 . 
Bill2 = 010000 19228 3494 3632 3677 3678 3711 3891 3895 3929 4197 4757 5321 7828 

7872 7890 7970 8004 8182 8201 8213 8226 8456 8458 8686 8742 8808 
B1113 = 020000 19214 3612 3946 4042 6584 6892 7953 8406 8689 
B1T14 = 040000 19208 3475 3477 3502 3598 3600 3635 3641 3772 3820 3864 3904 4010 

4025 7965 8001 8393 8537 8653 8697 8701 8805 
B1T15 = 100000 19198 3473 3641 3677 3751 3795 4042 7953 7965 7968 7970 8001 8004 

8186 8215 8217 8328 8431 8446 8456 8466 8537 8598 8613 8653 8660 
BIT2 = 000004 19424 3504 8660 
BiT3 = 000010 1941# 3615 
B11T4 = 000020 19404 3870 
BITS = 000040 19398 3618 
BIT6 = 000100 1938@ 3711 5183 7994 
B1T7 = 000200 19374 3704 3910 4591 
B11T8 = 000400 19364 3825 3849 3854 3884 3889 4042 
B1T9 = 001000 1935a 3627 4042 
BLKADR 001740 24998 3107 5616 5948 5949 5993 6016 7864 
BOUND 055240 100624 10074* 10089" 16166 
BPTVEC= 000014 19518 
BUFTBL 001616 2677H@ = =—3126* = 331278 = 3128 «= 33129" = 3131e = 31328 «= 813872 = 3141 3143 3144 4654 4656 

4670* 4693 4694 4706* 4711* 4716 4717 4730* 
BUSADR 055242 3097 100644 
BUSY 053610 5858 98234 
CFLAG 001262 23248 3117" = 3421 5863* 5869 6176" 6186 6208" 6228 6288 6300 6316" 6771* 

e 

CHGADR 001260 23234 3024 3026* 3029* 10064 10066* 
C11 035040 8023 80514 
C13 035146 8025 80744 
C14 035254 8014 80954 
C15 035632 8073 8094 81724 8181 
C16 035654 8111 8121 8123 8125 81774 
C17 035670 7955 8032 8063 8067 8071 8079 8088 8092 8103 8110 4116 8120 8134 

8140 8144 8154 8165 8180 81824 8284 8314 8483 8791 
C17B 035716 8185 81884 8485 
C18 035770 8183 8191 82004 8360 8645 
CKBUS 013156 3480 41674 
CKCLK 022500 3165 5572 
CKCLK1 022574 5574 5585# 
CKCLK2 022642 5586 55948 
CKCLK3 022672 5584 5593 56014 
CKERR 013056 3479 4146# | 
CKFMT 011160 3608 38494" 
CKHCE 011354 3611 38840 
CKSWR = 104407 6876 6900 7506# 
CK.CHR 027656 66404 6677 6691 10139 10154 
CK.DEC 027630 66184 6640 
(K.DIG 0277306 6231 6244 6257 6302 66718 
CK.NUM 055510 10075 10090 101334 
CK.OCT 027602 66004 6648 
CLKFLG 001210 23074 5572" 5577* 5588 5797 
CLOCK 023634 5580 5590 5818a 
CLR = 000040 1990# ' 
CLRDPB 025252 5950 60824 


(LRQUE 041600 7768 8234 8623 88758 
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CZRIDD.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0196 | 
CMCNT 001312 23408 4196e 6195" 6204 4206 4209* 4266 
CMACYL = =.001314 234618 4196% 4197" 4212 4278 
CMDAT 013524 4211 4228 42328 
CMHED 013430 42128 
CMPAR 013242 3483 41858 
CMPARD 013260 3740 41894 
CMPLAT 001414 23928 864141 4199 9847 
CMPRES 017616 3284 3339 3371 3396 3419 3436 3465 4994# 6997 
CMPRT 013770 4230 4244 4254 4264 42858 
CMPRX 013762 4225 4227 4267 42808 
CMSEC 001316 23428 = 8=6946198* 4215 4270* 4271 4273 
CMSTR 013352 42014 4269 4272 4276 4279 
CMTRK 001317 23438 84274 894275 4277* 
COLON) 053477 5804 5809 98084 ‘ 
COMTBL 001760 25084 973 6105 
CR = 000015 18594 2297 6854 7015 7025 9443 9457 9462 9620 9624 9628 9635 Gass 
9650 9662 9667 9672 9680 9689 9728 9734 9747 9752 9761 9764 9768 
9772 9774 9784 9788 9796 9809 9811 9814 9818 9870 9823 9826 9832 
10009 10180 10182 £10185 10195 10203 10208 
CRLF = 000200 18604 6986 7025 
CSF = 000002 21224 21408 
csu— = 000010 21248 21428 
CYLDER 054746 3891* 3892 3895* 3929* 5320 5374 5377 5380 5383 9120 99734 
CYLIMT 001350 23564 4852" 4855* 4861 4865 4867 6145* 6148" 6151 6159 6160 6240 
DATAPK 025226 5895 60674 
DATAO 003026 2680 26834 
DATA1 003066 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 
26/8 2679 2681 27004 
DATE 001220 23114 6030 6033 9990" 9991" 9992" 9993* 9994" 9995" 9996* 9997 
DATEIS 053501 6032 98094 
DCK = 100000 20584 
DCKER 007656 3640 36484 
DCKER1 010010 36734 3964 
OC. = 000100 21814 21908 
Dpcu- = - 000001 21878 
DDISP = 177570 18664 2283 3056 
DEASGN 024650 5885 59844 
DEASSG 053140 3280 9764" 
DE1 = 000040 20294 
DFF20 = 000002 20254 
DH1 047626 2975 94114 
DH14 050004 5168 94374 
DH15 050110 5177 94504 
DH16 050207 5180 94624 
DH2 047633 2982 3003 94134 
DH3 047710 2989 9422# 
DHS 047736 2996 94278 
DH6 047775 3010 94348 
DIGB = 000004 20264 
DISPLA 901142 22838 83056 3064* 6884 
DISPLY= 104414 3520 3554 3574 3585 3655 3672 3707 3744 3754 3776 3816 3840 3860 
3997 4006 4021 4037 4057 4068 4087 
4121 4124 4127 4130 4133 4136 4157 
4332 4335 4344 4347 6404 4409 444) 
4462 4464 4465 4488 4494 4499 4501 
5165 5166 5167 5168 5169 5172 517? 
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5180 5191 5192 5205 5208 5214 5220 5227 5241 5244 5247 5253 5256 
5257 5261 5262 3266 5274 5277 5278 5281 5288 5291 5293 5296 5300 
5304 5309 5312 5319 5323 5327 5335 5338 5341 5346 5352 5356 5365 
5367 5373 5376 5379 5382 5385 5386 5392 5395 5396 5399 5405 5406 
5412 5418 5424 5430 5437 54.39 5447 5448 5454 5459 5462 5467 5472 
5473 482 5487 5492 5495 5498 5499 5508 5522 6563 75118 

DISPRE 000174 22358 3064 

DLT == 100000 2000" 

DL64 = 000020 20284 

DMD == 000001 20624 

DONE 007352 3490 35954 

DPINT 033322 75838 8 7797 7800 7898* 7935 8377 8402 8527 8529* 8590 8628 8639 8647¢ 

DPR = 000400 2032a 

DPRQS 033332 7596# = 7941 8027* 8380 8541* 8592 8630 8641 8656* 

DRIVE 001242 23158 6878* 9474 9478 9481 

DRIVEO 042036 2499 6039 90564 9908 9909 9910 9911 9912 9913 

DRIVE 042342 2500 90644 9916 9917 9918 9919 9920 9921 

DRIVE2 042646 2501 9072 9924 9925 9926 9927 9928 9929 

DRIVES 043152 2502 90804 9932 9933 9934 9935 9936 9937 

DRIVES 043456 2503 90884 9940 9941 9942 9943 9944 9945 

DRIVES 043762 2504 90964 9948 9949 9950 9951 9952 9953 

DRIVE6 044266 2505 91044 9956 9957 9958 9959 9960 9961 

DRIVE? 044572 2506 9112# 9964 9965 9966 9967 9968 9969 

DRNUM 053163 3512 3538 3566 6353 6397 6405 9768" 

DROP 026544 3526 3580 63454 6369 

DROPNG 053052 6352 9754m 

DRO = 004000 20954 

DRVACT 033272 75404 7949 8128* 8175* 8194" 8205 8220* 8303" 8598 8429 8460" 8467" 8480 
8490" 8601* 8607 8614+ 

DRVCLR= 000111 22114 

DRVER 011126 3644 38394 

DRVINT 033660 7788 7822" = 867937 7996 8509 8530 8605 

DRVPRM 025456 5951 6123# 

DRVQUE 041676 7944 7957 8343 89158 

DRVSTA 033302 3183 5944 7554@ 7778* 7779* 7780" 7781" 7791 78232 7832* 7887+ 7892" 7931 
ack 7963 7998 8002 8129" 8238 8383 8391 8404 8454" B461*" 8473 8532 
648+ 

DRVTYP 033312 3186 3193 3204 3207 5967 6136 6139 6146 7570# 7824" 7839" 7844" 7849 
7854*  7860* 7966 8239+ 

ORY = 000200 20314 

DSWR = 177570 18654 2282 3055 

DIE = 010000 2055# 

DTIEER 011764 3634 3960" 

DTSY = 000200 20684 

DTUW 033414 5940 7690# 7774 8016 8072* 8195 8198* 8208 8221 8223* $8232" 8292 8304¢ 
8595 8610 8621* 8632 8695 

D100 = 000001 20864 

D101 = 000002 20878 

D102 = 000004 2088" 

D103 = 900010 2089# 

D104 = 000020 2090# 

D105 = 000040 20918 

D106 = 000100 2092e 

D107 = 000200 20938 

D108 = 000400 2094M 

011 050260 2976 94728 


A A ssiimiiadioas cad 


a 
| 
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D114 050330 5173 94864 
D115 050352 5178 94904 
D116 050374 5181 9494" 
DT2 050264 29 3004 94748 
D13 050302 2990 94788 
D4 050312 299 94818 
DT6 050324 3011 9484" 
DUNIT 001464 24578 3256 5993" 6349" 6431* 
DvA = 004000 20204 
ECBADO 001334 23508 4422" 4445 
ECBAD1 001342 23538 864436" 896.4457 
ECBIT 001320 23448 4396% 4397" 4398 4399* 4416 4418* 
ECC 014370 3733 43808 
ECCK 015122 4452 4463 44654 
ECC 014766 4429 4435 44414 
ECC2 015116 4413 44648 
ECGD 001332 23498 
ECGD1 001340 2352a 
ECH = 000100 20494 
EC] = 004000 21634 
ECMSKO 001324 234668 844148 89044198 = 2G 4426 
ECMSK1 001326 234678 3824415" 4620" 4428 4437 4439 
ECSEC 001322 234658 4380" 4389 4392 4394" 4410 
ECWRD 001330 234688 46398% 4400" 4401 4402" 4403" 4405 4410" 4411 6422 4425 4426¢ 44278 
4430 4442 6448 
ECWRDI 001336 23518 = 4623% = 3808 = 31* = 4432 44342 4436 4438 6439e 6440¢ 4451 4454 4460 
EMPTYQ 041656 8192 8237 8329 8468 8539 8661 89008 
EMTVEC= 000030 1954 3045" 3046" 3067* 
—EM1 045166 2974 91320 
—M10 045460 3531 9172 | 
—M11 045523 3537 91798 
FM12 045556 3511 3520 91858 
—Mm13 045607 3554 9191# 
EM14 045461 3565 3574 «= 92008 | 
—M15 045704 3585 9205# 
— M2 045231 2981 9139" 
EM20 045740 3816 92114 
—EM21 045761 3672 92154 
EM22 046012 3771 92218 
—M23 046065 3754 9230" 
EM24 046144 3860 92394 
EM25 046212 3900 92478 
EM26 046273 4006 92578 
—EM27 046320 4021 9262a 
—EM3 045267 2988 91464 
—M30 046355 3840 92688 
—€m31 046407 3941 92748 
—M32 046452 3963 92818 
—EMm33 046505 3969 92878 
—EM34 046562 4068 92964 
M35 046624 3987 93034 
£M36 046662 3997 9309" 
M37 046713 3774 9315a 
EMG 045325 2995 91538 
£40 046775 4037 93254 


£41 047033 4175 9332e 
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EM42 047077 4309 9340" 

—EMG3 047160 4105 4110 9350" 

EM44 047225 4157 9358" 

—EMGS 047311 3655 93684 

EM46 047377 5191 93798 

EMS 045362 3002 91594 

—MSO 047451 4057 9388" 

—MS1 047540 3926 9399" 

EM6 045416 3009 91654 

EM60 047603 4087 94064 

ENDCMP 014244 4280 4340" 

ENDCN 001352 23664 3032 3033 

ENDCON 001372 23788 3032" 3033* 6376 6379 

ENDET 001430 24178 6374 9850 

ENDPAS 053106 6388 9759" 

ENDPGM= 054756 3127 3129 9976" 

ENDSEK 001376 23808 3034* 3035" 6382 6385 

ENDSK 001356 23684 3034 3035 

ENDTST 053122 6396 97618 

ENTADR 053436 6209 9802" 

ENTCOM 053323 5866 97884 

ENTDAT 055070 9987 100094 

ENTORV 053350 6177 9792# 

ENTID 055107 9998 100124 

ENTLMT 053375 6127 97968 

ENTPR 005042 3156" 

EOP 026659 3413 63744 

EOPX 027122 6381 6384 6386 6425 64324 

EOP 1 026702 6375 6378 6382a 

EOP2 026724 5032 6377 6380 6383 6387# 

ERCTR 001306 23384 894192" 4229% 4240 4253" 4342 4345 

ERPRC1 006732 3489 3494" 3708 4609 

ERPROC 006716 3472 3476 3478 34888 

ERR = 040000 2038" 

ERRVEC= 000004 1947 3053 3054* 3065* 5574" 5575 5586" 5601" 10028 10029 10033* 10034" T004le 
10042* 10098 10099* 10101* 10107* 

ExT! = 000001 21024 

ExT10 = 000010 21054 

ExT2 = 000002 21034 

ExT20 = 000020 21064 

EXTG = 000004 21044 

Ex140 = 000040 21074 

FACTOR 015756 46619* 4620" 4622" 4623 4633 46418 

FAIRNS 001254 23214 3360 

FALPAR 007116 3499 35368 

FALPR1 007126 3532 3538" 

FEN = 000200 21284 

FER = 000020 20474 

FILBUF 016330 3346 3382 47498 

FMTER 012160 3856 4005¢@ 

FM122 = 010000 21644 

FORMAT 001416 2393 «3445 4934 9851 

FRSTER 001300 23314 3739« 374) 4102 41398 41408 4188 4256 4287 4305 44517 e 4340 

f = 000002 2015# 

F2 = 000004 2016" 

f3 = 000010 20174 
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F4 = 000020 20188 

FS = 000040 20194 

GENDPB 045076 3717* 3721 4510* 4511* 4513 4530¢ 45318 4533 4535 45468 4547* 64549 456'* 
4562" 4563* 4564* 4565* 4567 4569 5942" 91208 

GENREG 045116 3854 3889 9122 91248 

GETADR 026050 5953 62014 

GETBUF 015760 3343 3378 3698 4651# 

GETID 025740 5952 61734 

GETPAR 017410 3341 49584 

GETPAT 017362 3456 4912 49428 4947 5049 

GETREG= 000141 22188 

GETREM 027124 4808 4827 4843 4863 4883 4920 4943 64408 

GETREQ 041752 7989 8210 8321 8387 8421 8482 8536 8597 8612 8650 8657 893568 

GNS = werere 2234 7498 7499 7500 7501 7502 7504 7506 7507 7508 7509 7510 7511 

GO = 000001 20144 

GODRIV 016456 3348 3383 3700 3785 4584 4784" 

Rv = 000010 202784 

GTSWR = 104406 3091 75044 

HCE = 000200 20504 

HCEER 012236 3896 40204 

HC] = 002000 21624 

HCRC = 000400 20514 

HCRCER 010776 3605 38134 3351 3886 

HEDLIN 053534 6038 98144 

HIAD 055234 100604 10074 

HIVEC 055236 100614 10089 

HOUR 001266 23264 3112" 5800 5830* 5831 5833« 

HT = 000011 18574 6984 7025 

HZ 001212 2308" 3111 5820 

]AE = 002000 20534 

1AEER 012100 3623 39864 

IDIS 053512 6036 98114 

IDLE 006270 3325 3381 34014 3424 

1DLE1 006366 3403 34214 

IE = 000100 19684 

ILF = 000001 20434 

ILR == 000002 20444 

INCHRD 023416 3725 57514 

INCMIS 023466 3931 577584 

INCSK] 023442 4061 57634 

INCSOF 023372 3732 3738 3823 3868 3908 57398 

INCTOT 023512 3524 3545 3558 3578 3589 3657 3706 3726 3743 3760 3803 3806 3824 
3843 3869 3909 3932 3945 3973 3990 3999 4014 4029 4041 4060 4072 
4090 4161 4179 4548 57878 

INTDON 053631 3234 98264 

INTRVL 001410 2388" 3115* 5825" 5836 5838 5841* 9845 

INVLD 053301 5901 97844 

10TvEC= 000020 1952a 

IR = 000100 19914 

]1SR 936362 7783 82898 

IKE = 004000 21324 21508 

KIPARO= #eeeee YJ 10024 

KSR 023776 3423 58524 

KSR1 024032 5855 58614 

L 036224 8020 82548 

LACNT 033360 7649# 8262" 8263 8280" 
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Lf = 000012 18584 22988 6854 7019 7025 9443 9457 

9650 9662 9667 9672 9680 9689 9728 
772 9774 9784 9788 9796 9809 9811 

10009 10180 #10182 10185 10195 10203 10208 

LIMIT 001310 23398) =—4141% 8 4199* 4200" 4319 4321* 

LINAS 050626 5319 95254 

LINB3 050700 5241 95348 

LINBS 051055 5356 95574 

LINB6 051170 5405 5418 95724 

LINCA3 050657 5278 95304 

LINC6 051223 $412 95774 

LINDA3 050670 5274 9532a 

LINDEC 022362 4346 5171 5255 5260 5265 5287 5290 
5322 5326 5340 5345 5366 5446 5461 

LINDS 051040 $352 95544 

LINENS 050611 5312 95224 

LINEOS 051156 5396 95704 

LINEPS 051145 5392 95684 


LINE! 020266 3519 3553 3573 3584 3654 3671 3753 
3940 3962 3968 3986 3996 4005 4020 


LINE2 020332 3521 3555 3575 3586 3656 3673 3756 
3942 3970 3988 3998 4007 4922 4038 


LINE2A 020502 5140 5145 51634 

LINE2B 020520 5164 51678 

LINES 020740 3522 3556 3576 3587 3674 3757 3779 
4023 4039 4089 4159 52148 

LINE3A 020746 4070 4107 4311 52208 

LINE3B 020754 4059 52268 - 

LINE3C 020766 3928 52334 

LINE3D 020776 4177 5193 5239" 

LINE3E 021044 3971 5253e 

LINE3F 021132 3989 52728 

LINES 021414 3523 3557 3577 3588 3675 3758 3780 
4024 4040 4071 4108 4160 4178 4312 

LINES 021504 3759 3781 3822 3866 3906 4012 4027 

LINESA 021604 3867 3907 3930 4013 4028 5373# 

LINESB 021676 3731 5392¢ 

LINE6 021740 3680 5405# 

LINE6A 021752 3737 54124 

LINE6B 021760 3730 54188 

LINE6C 021766 3661 3704 3790 3799 3829 3874 3914 

LINE6D 021774 3663 3735 3766 3832 3877 3917 3953 


LINE? 022050 3525 3559 3579 3590 3664 372 3745 


LINE7A 022176 3933 4062 5482a 

LINES 022316 3724 3801 4604 5508" 

LING6 951252 5424 95814 

LINKDV 027152 4385 4477 4895 5363 6443 64538 

LINM3 050511 5214 9509" 

LINMG 050754 5335 95448 

LINN3 050527 5220 9512 

LINOCT 022330 4114 4117 4120 4123 4126 4129 4132 
4449 6455 4458 4461 4491 4496 $203 


5292 
5494 


3770 
4936 


3778 
4058 


3818 


5295 
5497 


3815 
4056 


3817 
4069 


5842 


4328 
$246 


= ea ee 


5299 
55348 


3839 
4067 


3841 
4088 


3862 


3903 


4048 
4081 
3830 
4030 


ws 
Ph N 
A 


o— 


5303 


3859 
4086 


3861 
4106 


3902 


3944 


9635 . 


9764 
9826 


5311 


3899 
4104 


3901 
4158 


3943 


3972 


SEQ 0201 


5314 


3925 
4156 


3927 
4176 


4008 


4009 


54248 


3875 
4097 
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5358 5375 5378 5381 5384 5394 5398 55188 

LINPS 050553 5293 95168 

LINPS 051073 5365 9560" 

LINR6 051270 5447 95848 

LINSP 052323 3202 4115 4121 4127 4133 4329 4332 4444 4447 4450 4456 4459 4462 
4494 5172 5205 5256 5261 5277 5376 5379 5382 5385 5395 5670 5675 
5680 5686 5692 9684# 10071 10086 

LINSPO 052324 $115 5169 5698 5705 5710 5715 5720 9685a 

LINSS3 050737 5262 95418 

LINST3 050722 5257 9538" 

LINS3S 050574 $253 5309 95198 

LINSG 050773 5338 95478 

LINSS 051111 5373 9563" 

LINT3 050646 5323 95284 

LINUO6 051301 5430 9586" 

LINW3 050710 $244 95368 

LINX4 051005 5341 9549" 

LINIOA 051737 4404 9639" 

LIN10B 051773 4409 9644" 

LINIOC 052034 4464 9650" 

LINIOH 052141 4441 96624 

LINIIH 052226 4488 9672# 

LIN2C 050410 5135 949784 

LIN2P 050431 5141 9500" 

LIN2S 050455 5166 95044 

LIN3.1 021204 5215 5221 52868 

LIN3.3 021516 5226 5233 5309" 

LIN3.4 021350 5234 5319" 

LINGSP 052321 3182 6049 96834 

LIN6.1 022002 5413 5419 5435m 

LIN6.2 022024 5425 5431 54448 

LIN7M 51326 5492 95904 

LIN70 051354 5454 5482 9594" 

LIN7P 051364 5487 9596" 

LIN7R 051461 5467 96084 

LIN7S 051404 5495 9599" 

LIN7T 051433 5459 96034 

LIN7K §=.051445 5462 96054 

LIN8M 051476 3707 4608 5508 961i# 

LINSB 051533 4314 9616" 

LINE 051660 4344 9631" 

LINIG 051710 3744 9635a 

LIN9SH 051562 4316 9620" 

LIN9I 051640 4112 96284 

LKPAR 05016 3148 

LOADRY 055703 3084 101854 

LST 002000 20344 

LSTAD 001256 23228 863125" 863128 3133 3229 

MAIN 005462 3255a@ 3437 5036 

MAIN] 905610 3235 3241 3263 32898 

MAIN2 005730 3299 33218 3397 

MAINS 006164 3322 3376" : 

MASK 001250 2318# %3677* 3709 3755* 3825 38708 3910" 39468 397468 40465" 4075* 4548 4598 

MATCH 014312 4232 43608 2 is 

MAXCYL= 000106 4856 5024 6151" 9014#@ 9015 9016 9017 9018 9019 9020 9924 S409 is 
9925 9933 9941 9949 9957 9965 
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MAXDL 001404 Fr 3138 3140" 3141 3143* 3158 3160* 3452 3454 4872 487% 4879 $037 
4 

MAXER 001406 23878 3118 6367 i 

MAXSEC= 000116 4820 6155* 9018# 9913 9921 9929 9937 9945 95953 9961 9969 x 

MAXTRK= 000112 4836 $027 6153* 9016# 9911 9919 9927 9935 9943 9951 9959 9967 

MCLK = 000002 20634 

MCPE = 020000 19738 

MCPEMX 033426 77084 8676 8723 

MH = 001000 21308 21488 

MINCYL= 000110 4857 4859 4864 $031 5152" 6166 9015# 9908 9916 9924 9932 9940 9948 
6 64 

MINSEC= 000120 4821 4823 4828 5030 6099 6156" 6164 9019" 9912 9920 9928 9936 9944 

9952 9960 9968 
MINTRK= 000114 $831 4839 4844 5029 6154* 6165 9017# 9910 9918 9926 9934 9942 9950 
66 

MINUTE 001270 2327H@ 893113 5805 5826* 4827 5829« 

MINX = 000004 20644 

MNDLTA 033442 7724# 8278 

MNTBL 002010 2535H 85156 

MOH = 020000 20964 

MOL = 010000 2036a 

MONTR 005354 3218 32220 

MPE = 000400 1993" 

MRD = 000020 20664 

MRHVEC 055477 10083 101168 

MRPCS1 055466 10068 101144 

MSE = 000020 2125# 

MSTCK = 000010 20654 

MWR = 000040 20674 

MXDLTA 033440 7721# 8276 

Mx 001000 1994# 

MXLACT 033436 7718# 8263 

MXWNDW 033444 7727 ~§=—©8081 \ 

M.DPID 027220 6460 6474a 

%.DP40 027256 64854 6506 

M.DP41 027312 6490 64974 

M.DP42 027322 6496 65014 

M.DP44 027354 6508 65134 

M.DP5O 027366 6483 6517# 

NBA = 100000 20984 

NED = 010000 1997# 

NEDCLK 053223 5595 9774a 

NEM 004000 1996# 

NEWASN 024640 5881 5979M 

NEWUNT 001506 26614 3293 3311 3372" 5948s 

NHS = 092000 21318 2149" 

NOLOAD 056102 3231 102084 

NOMTCH 012634 4102# 4234 

NONE 053557 6052 98184 

NOTAVL 9052605 5920 97234 

NOTPRS 052570 3191 5972 9720# 

NOTPRT 001426 2412¢ 5089 9853 

NOTRP 052547 3189 5970 9717 

NOTSAF 052624 3199 5965 9726" 

NOUSE 052403 3195 9697# 

OCYL = 100000 21838 21938 f 
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OFFCOD 002220 


257 
2213 
3720 
3503 
OFMSGA 002724 2598 26508 
OFMSGO 002274 2585 2592 26008 
OFMSG1 002327 2586 26054 
OFMSG2 002363 2587 26104 
OFMSG3 002417 2588 2593 26154 
OFMSG4 002453 2589 2594 26208 
OFMSGS 002507 2590 26254 
OFMSG6 002543 2591 26308 
OFMSG7 002577 2595 26354 
OFMSGB 002633 2596 26408 
OFMSG9 002667 259 26458 
OFMTBL 002240 25854 5436 
OFREV = 000200 21614 
OF 100 = 000004 2157" 
OF 200 = 000010 21584 
OF25 = 000001 2155" 
OF400 = 000020 21598 
OF50 = 000002 21568 
OF 800 = 000040 21604 
OPE = 020000 21918 
OPERID 001232 23134 6034 6037 =10001* 10002* 10003* 10004* 10005* 
OP1 = 020000 20564 
OPIER 011654 3614 3938" 
OPIER1 011720 39478 
OPRDAT 054756 3103 99878 
OPT 034560 7951 7986# 8324 8500 8542 
OPTBL 001766 2515 5147 5149 
OR = 000200 1992a 
ORDERQ 001440 24518 3105 3349 3385 3401 5852 
PACK 001216 2310 3116" 5955 5957 5979* 6067" 6073* 
PAR = 000010 20468 
PARENT 026370 3157 6163 62874 
PARER 012006 3617 3968m 
PARLST 053744 3144" 3156 9844m 
PARQ 001574 24738 3335 3355 3391 3431 3433 3435 3459 
PAR1 054072 9844 98624 
PARIO 054170 9851 98798 
PAR11 054177 9848 98814 
PAR1G 054205 9849 98834 
PARIS 054213 9852 9885# 
PARI6 054222 9850 98874 
PARI9 054230 9846 9888m 
PAR2 054100 9845 9863m 
PAR20 054237 9853 9890" 
PARS 054107 9847 9865# 
PARS 054116 9867# 9909 9917 9925 9933 9941 9949 9957 
PARS 054125 9869# 9908 9916 9924 9932 9940 9948 9956 
PARO 054134 9871# 9911 9919 9927 9935 9943 9951 9959 
PAR7 054143 9873# 9910 9918 9926 9934 9942 9950 9958 
PARB 054152 9875# 9913 9921 9929 9937 9945 9953 9961 
PARO 054161 9877# 9912 9920 9928 9936 9944 9952 9960 


PASCNT 001402 2583H 866394 9846 





10006* 


9965 
9964 
9967 
9966 
9969 
9968 


SEQ 0204 
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PAT = 000020 
PCLOCK 0012066 
PDONE 053042 
PERIOD 053275 
PGE = 002000 
PGM = 001000 
FIP = 020000 
PIRQ = 177772 
PIRQVE= 000240 
PLU = =_- 020000 
POPQUE 041774 
POSER 011600 
PROCES 006626 
PRIBAD 015130 
PRTIM 007314 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 == 000140 
PRG = 000200 
PRS = 000240 
PR6 = 000300 
PR7 == 000340 
PS = 177776 
PSEL = 002000 
PSUs =_- 000001 
PSw = 177776 
PUNSAF 007014 
PWRVEC= 000024 
QCNT 041306 
QDRVO 041400 
QDRV1 041420 
QDRV2 041440 
QDRvV3 041460 
QDRV4 041500 
QDRVS 041520 
QDRV6 041540 
QDRvV7 041560 
QINPT 041316 
QOUTPT 041336 
QSTART 041356 
QSTOP 041360 
QTERM = 041600 
QUES 053277 
QvCON 001362 
GvSEK 001366 
RANCYL 16770 
RANPAT 017236 
RANSEC 016614 
RANSIZ 017102 
RANTRK 016670 
RANWRT 017256 
RANXIT 017246 
RATIO 001422 


000020 
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5573* 


5578* 


8166 


4073 


K 16 
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8494 


44708 


4905 


8951" 


3217* 5862* 
7977* = §=7987 


B917* 8937 
. 


K 


8921. 8923« 


8954" — 8955 
8957 --. 


5906* 
8036* 


8951« 


8957s 


6571 6572* 6586* 
8269* 


6780 


7766 


SEC 6205 


7767* 


L 16 
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DD.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0206 | 

RDCHR = 104410 6765 6802 75074 

RDDAT = 000171 2225# 2512 

RDHD = 000173 2226# 82513. 4565 5044 

RDLIN = 104411 3151 5867 6184 6226 6298 75084 9988 9999 10072 19087 

RDY = 000200 19694 

RD.ADR 040600 8678*  8679* 86818 9478 

RD.RP 040554 7835 7876 7882 8114 8138 8152 8256 8270 8312 8358 8423 8433 8448 
8585 8634 8676" 8730 8744 8750 8783 

RD.RP1 040576 86804 8709 

RD.RP2 040716 8676* 8708" 

RD.RP3 040722 8687 8700 8710" 

RD.RP4 040726 8692 87124 

RD.WRD 040602 86824 8683 9478 $481 

READDR > 022402 3448 3688 3852 3887 4965 5018 5072 5289 55548 

READHD 015404 3853 3888 45618 

READIN= 900121 22154 

RECAL = 000107 22108 4531 

RECALT 015326 3924 4530# 

RECALO 015332 65314 5943 

REDAPK 025240 5899 60734 

REFMT 006462 34414 3746 3808 3834 3879 3919 3955 4031 

REFMTX 006624 3442 3444 3446 3461 34668 

RELBUF 016114 3420 3687 4692m 

RELSE = 000173 22124 

REPLZ 0277 6 2 yt 5678 5684 5690 5696 5703 5708 5713 5718 5727 5802 5807 5812 
6 

RESREG= 104413 Saas ieee 6463 7403 7453 7510# 7805 7971 7974 8037 8241 8297 8566 

RESVEC= 000010 19484 

RETRY 001252 23198 3658* 3682« 3713* 3714 3719 3761* 3784 3789* 3792 3793 3826" 3871« 
3911+" 3947 3975* 4044* 4074* 4091* 4588 4600* 4601 5445 

RMR = 000004 20454 

RNOP = 000101 22078 

RPADR 033430 3098* 77138 7785 7930 8054 8074 8095 8254 8291 8583 8678 8684 8688 
8703 8736 8740 8772 8802 10103 

RPAS = 000016 77384 7881* 8356 8472* 8499" 8518* 8625 

RPBA = 000004 — 77334 

RPCA = 000034 77454 8066 8078 8109 

RPCC = 000036 7746# §=8257 

RPCS! = 000000 7731# 7827" 7833 7870 7992 8008 8070 8091 8133 8153 8164 8179 8190 
8313 8359 8410 8440 8477 8635 8731 

RPCS2 = 000010 7735@ 7786* 7826* 7828 7943* 8055" 8075" 8096* 8182 8201 8213 8226 8235* 
8255* 8311* 8422" 8502" 8517* 8584" 8600* 8685 8741 8775« 8779 8805* 8808 

RPDA 000006 77344 §©8062 8087 8102 

RPDB - 000022 7740# 8777 

RPDS1 = 000012 77364 §=©7858 7877 7994 8424 8449 8503 8586 

RPDT = 000026 77424 = 78 36 

RPEC1 = 000044 77494 

RPEC2 = 000046 7750# 8787 

RPERRS 033262 7532a 8©7769 8393 8396 8406 8503" 8504" 8506" 8508" 9474 

RPER! = 000014 3854 3889 77374 7883 8434 8504 8745 

RPER2 = 000040 7747# §=8506 

RPERS = 000042 77488 8508 

RPINIT 033446 3166 7765# 


000024 7741 
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CZRJOD.P11 06-JUN-79 08:32 
RPOF = 000032 77448 
RPSN = 900030 77434 
RPTMR 040026 5835 
RPVEC 033432 3099« 
RPWC = 000002 77320 
RPOG 034266 4512 
RPOGB 052654 3203 
RPOS 052661 3206 
RP06 052666 3209 
TC == G00117 22148 
RINCTR 015302 45108 
50550 §291 
SAVEFG 033370 3167* 
SAVER1 001302 23368 
SAVERS 001304 23374 
SAVREG= 104412 4749 
8875 
sc 036710 8296 
SCMND 024/756 5889 
scl = 000100 21084 
$C10 = 001000 21114 
$C11 037526 8395 
$C12 037616 §389 
$C13 037666 8379 
SC2 = 000200 21094 
$€20 = 002000 21124 
$¢3 036754 8370" 
SC4 036760 8372a 
sc5 036772 8371 
$C6 037162 8399 
SCOA 037272 8397 
SC7 037420 8432 
$c8 037476 8411 
SDETAL 023034 5620 
SEARCH= 000131 22178 
SECLMT 001344 23548 
SECOND 001272 23288 
SEEK = 000105 22094 
SEEKFG 033372 7672 
SELDRV= 000145 22204 
SELPAR 016534 3340 
SETFMT= 000143 2219 
SETUP 004202 3036" 
SETVEC 005070 3149 
SET.JE 041234 7799 
SHDTYP 023012 5613 
SIXTEE 001274 23298 
SIZMEM 004646 31228 
SKl = 040000 21828 
SKIER 012420 3643 
SLASH 054066 6134 
SPOTCK 020130 3666 
SRCHWT 033344 76178 
STACK = 001100 1852@ 
START 004122 2239 
START! 004140 2258 
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7874 8115 

8550" 

7714 = 7782 

4532 4548 

6135 97318 
6138 9732m 
6141 97338 
4511 

5300 95158 
76644 8168 

4202* 4259« 
4203* 4260* 
5861 6453 

8325 8327 

6009# 

8430 84874 
8400 85024 
8382 85144 
8374 

8403 8414 

8377" 

84184 

8442a 

8445 8447 

8425 8435 

5639 56628 
6155 6256 

3114* 5810 

7770 8018 


3154 3159 

7830 7961 

5636 560494 
3lile 5818« 
21924 

40564 

6297 98604 
3768 3813 

7988*  8093« 
043 3109 

30264 5600 

3029" 3247 


8119 


7784 
4566 


8417 


8457 
8441 


5821* 


31658 
8035 


5820* 


3857 
849) 


8139 


7924 
4786 


8465 


84678 
8450 


5822 


8240 


3897 


8145 


79230 


4299* 
75098 


8479 


8478 


58248 


8364 


3938 





SEQ 0207 


7926 7986 8200 8290 8553 8769 


8501 8543 


8513 


50628 
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CZRIDD.211 
START2 004150 
STARTS 004106 
STATHD 052673 
STATIN 001214 
STATIS 015614 
STATPR 022702 
STKLMT= 177774 
STNDAT 002762 
$10 040120 
$101 040150 
$102 040346 
$103 640416 
$105 040442 
$106 040450 
$107 040506 
$108 040536 
$109 040546 
SVRH11 041116 
SWR 001140 
SWREG 000176 
SWIIM 007166 
swO = 000001 
$w0O = 000001 
$w01 = 000002 
swO2 = 000004 
swO3 = 000010 
sw04 = 000020 
swOS = 000040 
$w06 = 000100 
SwO7 = 000200 
sw0O8 = 000400 
swO9 = 001000 
Swi = 000002 
sw10 = 002000 
Swi1 = 004000 
Swi2 = 010000 
Sw13 = 020000 
Sw14 = 040000 
Swi5 = 100000 
SWw2 = 000004 
Sw3 = 000010 
SW4 = 000020 
Sw5 = 000040 
Sw6 = 000100 
SW? = 000200 
SWB = 000400 
sw9 = 001000 
SYSTAT 052634 
050524 
TABLE 054246 
TABLEO 054266 
TABLE1 054334 
TABLE2 054402 


TABLE 3 


054450 


08:32 
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30318 


3427 
6029 
4372 


8638 
8593 


8636 


95114 


a. 
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5500 


5840+ 


4773 


6392 


 $€a 0208 
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CZRIDD.P11 06-JUN-79 08:32 CRUSS REFERENCE TABLE -- USER SYMBOLS SEQ 0209 
TABLES 054516 9901 99408 
TABLES 054564 9902 99488 
TABLE6 054632 9903 9956" 
TABLE? 054700 9904 9964m 
AP == 040000 20978 
TBITVE= 000014 19498 
036426 8294 83034 
TOF = 000040 21268 21448 
TIMER 033374 76778 = =67896* = B8030* = 8173* «= 8219" = 8306" = 419% = B463* = 8515* 8525" 8556 8558*  8616¢ 
8643* 8649*  8655* 
TITLE 055652 3075 10180" 
TKVEC = 000060 1956 6755* 6756* 
TPVEC = 000064 1957" 
TRAPVE= 000034 19554 3047* 3048* 3068+ 
TRE = 040000 1974a 
TRFER 012320 3602 4036¢ 
TRKLMT 001346 23554 6153 6243 
TRK1_ = 004000 21138 
TRK10 = 040000 21168 
TRK2 = 010000 21148 
TRK20 = 100000 21178 
TRK4 = 020000 21154 
TRNSWT 033342 76094 = 8052" 8197" 8207 8224+ 8233+ 8308 8309* 8594 8609 8622¢ 
TRIVEC= 000014 19504 
TSTPGM 034264 3023* 3027*  3030*  3073* 3076 7856 79118 


TUF = 000100 2127" = 21458 

TYPDS = 104405 6296 6390 7502" 

TYPE = 104401 3075 ««3078-~=S (3084S s3150) 3174S 3175S 31823189 = 3191S 3195. 3197-3199 3201 
3202 3210S s3212,Ss«3216 = 3231S 3234)~=S 3280 3S 3300S 3306. = 3510S 3511S 3512 = 3518 
3530 ©—s- 3531S s«3536=— 3537 3538) 3544 «= 3564 = 3565S 3566 = 3572S 5109 ~=S «5595 =: 5670 
5675 «55680 «Ss «5686S s«5692Ss«5698 = 5705) s«5710~=S «5715 ~S«5720.- «5729S «5799 = 5804 = 8809 
5858 5866 5901 6032 6033 6036 6037 6038 6049 6052 6054 6056 6062 
61276134. 6142.6 144—s6177~— «6183. «6209s «6215 6273s 6291S 6297 6311 6328 
6329 6335 6337 6350 6351 6352 6353 6360 6387 6388 6396 6397 6403 
6405 6411 6426 6543 6769 6770 6778 6779 6786 6809 6815 6820 6824 
6829 6834 6835 6837 6840 6844 6887 6895 6915 6932 6934 6937 6939 
6943 698 70 716271937194. = 71977210 7221S 7240S 74988 = 9987 
9998 10068 10071 10083 10086 

TYPEST 022764 3281 56344 6017 6412 

TYPOC = 104402 6923 6947 7196  7499# 10070 10085 

TYPON = 104404 75014 

TYPOS = 104403 5179 $303 3515 3541-3569 = «5667 = 60466131 = 6180 = 6212S s«332.— «6357 ~— 6400 
64 " 

TYPRIG 027526 5650 5652 6571# 

UCPAR 007104 3497 3530" 

ULDFLG 033350 76378 7825" 7933 7948* 8130" 8193" 8225+ 8385 84669 B471* 8487 8489" 8602" 

, | 

UNIT 001246 23178 «3470" 3513 «3539-35675 170 = 6391* 6398 ~~ 6406 

UNLOAD= 000103 22088 

UNS = 040000 20578 

UNSAF 012554 3597 4086" 

UNTASN 052521 5914 97138 

UNTMSG 052450 3300 «= 6329S: 9 704M 

UNTNOT 052477 6001 6019 9709" 

UNTOFF 052456 3197 5974 9705 


UNTON 052467 3201 9707« 





CZRIDD0, RPO4/5/6 MLT-DR LGC 
CZRIDD.P11 


Cc 
SGea$ 

~ mn 
wnt om ot oe " 


ccc 
aA, 
nm 3 
nu " 


cece 
O00 
RAR 
zimeo 
o 

" " 


c 
ro) 
nd 
9 
> 
ot 
nun 


SCHARC 
SCKSWR 
SCMTAG 
$CM5 = 
SCNTLC 
SCNTLG 
SCNTLU 


020000 


040730 
041014 


000006 
031346 


032426 


06-JUN-79 08:32 


9689" 


MACY11 30A(1052) 


3321 


03-JUL-79 
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3365 


9848 


dD 1 
10:41 PAGE 213 


3376 3395 


8065 8069 8077 
8409 8439 8476 


8758" 
9481 


4262 


4193 4620 4698 
7022a 


8086 
87238 


4704 


8090 


4709 


8101 


4713 


8108 


4752 


8118 


5188 


SEQ 0210 


8132 


5336 


CZRIJDDO, RPO4/5/6 MLT-DR LGC 
CZRJDD.P11 


SCOCE = 


SCOMND= 
SCRLF 


000024 


000002 
001165 


000012 
032014 


000072 


000066 
032451 
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7197 


5725 
7278e 


MACY11 30A(1052) 


7297 


03-JUL-79 
CROSS REFERENCE TABLE ~- USER SYMBOLS 


729 


6 


10:41 
4390 4484 
6112 8339 
4973* 5044* 
3510 518 
4335 4347 
5247 5266 
5473 5498 
6351 6360 
6939 6943 
4756 4792 
5490 5677 
6193* 6194" 
6906 6921 
8753 8961 
90004 
8973 8974 
7310* 73158 
7303 7309* 
8998" 


e Y 
PAGE 214 


6195* 


8975 


7316" 


9028# 


8976 


——-—- <-er"o 


8977 


4754 4928 
8351* 89718 
3564 3572 
4501 5112 
5346 5367 
5799 6056 
6426 6769 
5024 5031* 
6728 73778 
8978 8979 


5254 


8983 





SEQ 0211 
4971* 


CZRIDDO, RPOG/5/6 MLT-DR LGC 
CZRIDD.P11 


SMSWR 
SNCODE= 


SNPATC 


SPOSIT= 
SPREVA= 


SPREVO= 


SRESRE 
SRETRY 
SRPADR 
SRPAS = 
SRPBA = 


SRPCA 
SRPCC 
SRPCS1= 


SRPCS2 
SRPDA 
SRPDB 
$RPDS1 
SRPDT 
SRPECI= 
SRPEC2= 


SRPERI= 


SRPER2= 
SRPER3= 


032440 
000074 


000100 


000032 


000027 
000003 


gererrre 
030330 
errere 
000001 
000052 
000014 


032622 
015466 
001170 
000252 
000240 


000270 


000272 
000234 


000244 


000302 
000250 


000274 
000276 


Cc 


06-JUN-79 08:32 


72768 
4816* 


MACY11 30A(1052) 


3 
9486 
9049" 


03-JUL-79 


8346" 


7025 
4946 


3872 


4432 


10:41 
4907 4930* 
9010 9014 
5051* 6094 
4888 4901* 
7076* 71024 
5455 5483 
5040 5957* 
6424* 89998 
6107* 89884 
5488 6382 
4967* 4968+ 
8987# 

7240 

5009 72928 
6379 8993# 
9066 9067 
9115 

3912 3948 
10100 10102 
4472 4492 
9494 

4968 5021 
5017 5136 
9042 9043 
9082 9090 
3864 3904 
5562 5567 
9486 

7865* 90434 
9050# 9486 
6099 90514 
3615 3618 
3797 3849 


. 
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4931* 


90108 


4937* 


4978 


6416 


8991# 
5020+ 


4960 4971 4972 


9009# 


8990" 


5021* 5294 5298 


9082 9083 9090 


4076 4092 45848 


5242 5342 5353« 


5313 9047# 9494 
9033 9034 9035 
9046 9047 9048 


4042 4148 9036" 


SEQ 0212 

90048 9005 
5302 5310 
9091 9098 
4602 

5354 90348 
9036 9037 
9049 9050 
9486 

9099 9107 
3678 3709 
9486 


G 1 
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CZRIDD.P11  06-JUN-79 08:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0213 

SRPLA = 100254 9040" 9490 

SRPP” 000260 9042" 9490 

$" ur = 000266 9045# 9494 

LaPSN = 000264 9044" 9494 

SRPVEC 001172 2300# 3099 

SRPWC = 000236 4167 4195 4381 44745186 = 5245 = 5359 = 9033 = 9490 

SR2A = eeeser 7511 

SSAVRE 032564 7335" ©7509 

$SB2D 030066 4407 5535 5672 5702 5707 5712 5717 5726 5801 5806 5811 67?L8 

$5820 030116 5519 67438 

$SEC = 000010 3690" 4198 4562* 4758 4963 4975" 5022* 5030" 5264 6164" 8348  8975« 

SSETUP= 000146 3014Ga 3044 3045. «= 3047 = 3049 «Ss 3051 = 3086 = 6876 = 6900S 6902s 7177 —S 7280 

$SIZE 055136 3124 10026" 

$SKI_ = 000064 5496 5726 5765 S767* 89978 

$SOFT = 000060 5722 5741 = 5743 = 89958 

$SSEC = 000022 3692 5694 | 4204 4208 4209 4386 4476 4980" 4983" 5042" 50s6* 5362 61118 
® 

$STUP = 177777 3014" 

SSUPRS 027466 4408 5458 5466 5471 5486 5491 5536 6555« 

$SVPC = 000224 2249" 2254 

$SwR = 122000 18174 1827 1831 1832 1833 1834 2292 3051 6868 6869 6870 6871 6872 

6885 6892 6897 6901 6906 
STATUS= 000016 3404 3471 3488 3494 3496 3498 3500 3502 3504 3595 3701 3704 3721 
3786 46 4535. 4569 4585) 4591 4617S s«s5183) «5333 «= 979M 9494 

STERM = 000032 75120 

STIME 023536 5114 5649 5797# 5864 6881 

$1KB 001146 2285" 5865 5904 6757 7175 7186 7203 7257 7263 

STKINT 030146 3085 3233 ©6755" 

$TKS 001144 2284" 5905" 6758* 6772" 6782* 6784+ 7175 7184 7200 7224" 7255 7261 

STKSRV 030176 6755 67658 

$™N. = 000001 1817" 1827 

STNPWR 032770 7384 7385 7405# 

$TOTAL= 000056 5460 5721 5789 5791* 6367 8994" 

$TP 001152 2287" 7014* 7025 

STPFLG 001157 2291" 6972 7025 

$TPS 001150 22864 7012 7025 

STRANS= 000046 4623* 4624" 4631" 4632* 5463 89928 

STRAP 033174 3047 74758 

$TRAP2 033216 7486" 7497 

$TRK = 000011 36B9* 4561" 5027 5029" 5259 6165" 8976" 

$TRP = 000015 74908 74998 7500" 75018 7502" 7503# 7504 75054 7506 7507 7508# 7509" 75108 
e # 

STRPAD 033230 7480 7497# 7512 

STSTNM 001102 22644 6884 6906 

STTYIN 030606 6799 6800 6812 6835 6849 6853" 

$TYPBN= *ereee Y 7503 

$TYPDS 031600 7116" 7502 

$TYPE 031132 6574 6587 6972 7490 7498 

$TYPEC 031302 6993 7000 7007 7012# 7013 7226 

STYPEX 031350 7018 7020 7023" 

$TYPOC 031376 7056# 7499 

$TYPON 031412 7055 7058# 7501 

$TYPOS 031352 7051# 7500 

$WRDL = 000020 3692-3694" «3695. 4169-4194 4382473 4631 4664 4666* 4667 46688 


4657 
4696 4705 4710 4714 4753 4977* 50357* 5185 5339 5360 6108" 89838 8984 
8985 8986 8987 8988 8989 8990 8991 8992 8993 8994 8995 8996 8997 


H 1 
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CZRIDD.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0214 
8998 8999 9000 9004 

SWROM = 000004 3095* 3696" 4978 49792 5038"  5039* 6109* 6110* 89734 

SOFILL 031575 7052* 7056* 7066 71014 

SGOCAT= teeere YJ 6894 

. = 056177 223508 22348 2242H 2249 2250 22528 2254 22614 2296 25334 25838 26564 3042 
3351 3357 3367 3387 3393 3596 3604 3607 3610 3613 3616 3619 3622 
3625 3633 3636 3639 3642 4412 6503 68534 68564 6880 6903 6906 69534 
7025 7170# = 7175 728 7425#@ 7465# 7512 88604 88614 88624 88658 88644 88654 
88664 88674 9057# 9058 9059# 90654 9066 9067# 9073# 9074 9075# 90818 
9082 9083« 9 9091# 9097# 9098 9099" 91054 9106 9107# 8 91135# 9114 


9089" 090 
9115@ 91248 9976 100164 
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CZRJDD.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0215 
A 5733 8 5734 5746 5758 5770 5782 
AUTOM 68624 6902 


CKCHR 18174 6677 6691 10139 10154 
CKDIG 18174 6230 6243 * 6256 6302 
CKNUM me yee 10090 


ERRCAL 7516 8363 8413 8415 8693 8753 

ERROR 18534 8363 8413 8416 8694 8753 10109 

ESCAPE if §=19598 

GETPRI 1# = =1959# 10032 

GETSWR 1# 18178 1959 3086 

MORETA 2255 2297 

MULT 1# = §19598 

NEWTST 1# = =61959# 

POP if = =1959# 4301 5093 5195 6116 6275 7157 7311 7356 

PUSH 1#@ = =1959# 4292 5062 5128 6082 6201 7116 7292 7336 

REPORT l# = =61959" 

RPO4.D 1# §=7516 

SCOPE 18544 

SETPRI if 19598 

SETTRA 74908 7499 7500 7501 7502 7504 7506 7507 7508 7509 7510 7511 

SETUP 1#@ 19594 3036 

SKIP 1# = =619598 ¥ 
SLASH 19598 

SPACE 19598 

STARS i# §=1959# 1960 1964 2006 2010 2201 2205 2247 2257 2296 2359 2363 2422 2426 


2445 2449 2658 2662 3014 $021 3249 3253 5098 5102 5540 5544 6858 6864 6909 
6957 7028 7106 7174 7177 7245 7283 7320 7366 7429 7469 7514 7524 8962 8966 


SWRSU 1#@ = 19598 f 

TRMTRP 7490# 7512 

TYPBIN lf = =61959# 

TYPDEC 1” =§=19594 

TYPNAM i# = §=619598 

TYPNUM 1# = §=619598 

TYPOCS 1#@ 1959# 3176 3301 3513 3539 3567 5605 6044 6129 6330 6355 6398 6406 
TYPOCT 1#@ = =1959% 6921 6945 7195 

TYPTXT 1# = =1959# 


SSNEWT iF] 1959 
$$SET 74904 7499 7500 7501 7502 7504 7506 7507 7508 7509 7510 7511 
S$SKIP la 19598 
EQUAT la 18174 1849 
HEADE lf 18174 1818 
.KT11 lf 
SETUP la 18174 3014 
SWRH] 1817 1827 
SWRLO 1817¢ 18344 1835 1836 1838 1840 1845 1847 1848 
$ACT! r] 18174 2245 
SAPTB i] 
SAPTH la 
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CZRJDO.P11 06-JUN-79 08:32 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0216 
-SASTA ia 

SCATC 1#@ =18178 = 2228 
-SCMTA 1#@ = 18178 2255 
-$0B2D 1#@ 18178 7364 
-$0B20 i#@ «618174 = 7427 
-$Olv (6 

- SEOP ia 

- SERRO 1# §=18174 6862 
- SERRT 1# 18174 6907 
- SAULT la 

SPOWE la 

SRAND 1#@ 8618178 = 7281 
- SRODE la 

- $SRDOC la 

- SREAD 1# 18178 7172 
- $R2AZ la 

- SSAVE if 618178 = =67318 
$SB2D la 

-$SB20 1s 

- $SCOP la 

-$SIZE if =1817# 10018 
- SSUPR la 

- STRAP 1#@ = =1817# 7467 
-STYPB la 

-STYPD 1#@ = =61817# = =7104 
-STYPE 1# 18174 6955 
-$TYPO 1# 18174 7026 
$40CA la 

1170 lf 


- ABS. 056177 000 


ERRORS DETECTED: 0 


SAIL: CZRJDD.BIN,CZRJDD.LST/CRF/SOL/NL:TOC:MD:MC:CND/LI:ME=CZRJDD.SML,CZRJDD.011,CZRJDD.P11 
RUN-TIME: 73 104 8 SECONDS 
RUN-TIME RATIO: 452/186=2.4 
CORE USED: 50K (99 PAGES) 


